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1.   INTRODUCTION 

In  the  years  since  1965,  a  great  deal  of  work  in  electromagnetic 
theory  has  been  based  on  the  moment  method  for  the  numerical  solution  of 
integral  equations.   For  certain  classes  of  problems,  the  electric  field 
integral  equation,  derived  by  requiring  the  tangential  component  of  the 
electric  field  to  vanish  on  perfectly  conducting  surfaces,  is  most  advan- 
tageous.  The  cylindrical  antenna  problem  is  an  example.   Previous  studies 
of  this  problem  have  considered  one  of  two  standard  representations  for 
the  electric  field  integral  equation,  or  some  slight  modification  of  one 
of  them.   If  azimuthal  variation  in  the  field  can  be  neglected,  the  inte- 
gral equations  are 


+  k 


dt 


f 


I(z)  K(|z-t|)dz  =  iweE    (t) ,   t  £  L, 

tan 


(1.1) 


and 


I(z)  K(  z-t  )dz  =  A  cos(kt)  +  B  sin(kt)  +  iwe 


E.^„(z)g(t,z)dz, 
L 

t  e  L,  (1.2) 


where  e     time  dependence  with  radian  frequency  w  is  assumed,  k  is  the 
free  space  wave  number,  and  e  is  the  permittivity  of  the  medium.   These 
two  equations  are  due  to  Pocklington  (1897)  and  Hallen  (1938),  respectively. 
I(z)  is  the  induced  current  due  to  the  incident  electric  field  which  has 
tangential  component  E    .   The  kernel  K(|z-t|)  is 


2Tr 


K(  z-t  )  = 


87T 


ikAa^  sin^(<))/2)  +  (z-t)' 
v4a^  sin^(<J>/2)  +  (z-t)^ 


d(J) 


(1.3) 


where  ip    is  the  aziinuthal  angle  and  a  is  the  cylinder  radius.   A  and  B  are 

constants.   g(t,z)  is  a  Green's  function  for  the  one-dimensional  harmonic 

2    2    2 
operator  (d  /dt   +  k  ) .   Discussions  of  these  integral  equations  may  be 

found  in  many  sources,  for  example,  in  Mittra  (1973,  pp.  9-14). 

In  1972,  Mayes  (1972)  proposed  an  alternate  integral  equation  formula- 
tion for  the  cylindrical  rod  scatterer  or  antenna.   This  formulation  is 


u(z)  K(  z-t  )dz  =  iweE    (t) , 
'    '  tan 


t  e  L 


(1.4) 


where 


2 
^  +  k^I  =  u(z) 
dz 


(1.5) 


Note  that  the  integral  equation  (1.4)  has  the  same  kernel  as  (1.1)  and 
(1.2)  and  that  there  are  no  differential  operators  involved.   The  left-hand 
side  of  (1.4)  has  the  same  form  as  the  left-hand  side  of  Hallen's  equation 
(1.2)  and  the  right-hand  side  is  identical  to  the  right-hand  side  of 
Pocklington's  equation  (1.1).   The  unknown  quantity  in  (1.4),  however,  is 
not  the  induced  current,  but  rather  an  auxiliary  function,  called  the  "cur- 
rent source-function,"  from  which  the  current  can  be  obtained  by  solving 
the  inhomogeneous  differential  equation  (1.5).   If  a  solution  for  the  cur- 
rent source-function  u(z)  is  found  from  the  integral  equation  (1.4),  then 
the  current  is  found  from  (1.5)  to  be 


Kz)  = 


u(t)  g(t,z)dt,       z  €  L,  (1.6) 

L 


2    2    2 
where  g(t,z)  is  a  Green's  function  for  the  operator  (d  /dz  +  k  ). 

The  current  source-function  (CSF)  technique  differs  from  previous 
procedures  in  that  the  vector  and  scalar  potentials  are  not  used.   Instead, 
direct  relationships  between  the  fields  E  and  H  and  the  electric  and  mag- 
netic current  sources,  J^  and  K,  respectively,  and  their  derivatives,  are 
introduced.   Although  these  direct  relationships  are  not  new,  their  appli- 
cation to  integral  equations  apparently  is.   Collin  (1960,  Eq.  (51b),  p.  21) 
gives  such  a  direct  relation  between  E  and  J.   It  is 


V^E  +  k^E  =  T^  {VV-J  +  k^J}  =  -^   U  (1.7) 

—     —   iwe     —     —    iwe  — 


where 

U  =  VV-J  +  k^J.  (1.8) 

This  U  is  the  vector  current  source-function.   The  solution  for  E   in  terms 
of  U  is 


E  =  - 


4-17 


10)  c 


ikR 
U(r')^^—  dV  (1.9) 


where  R  =  |r-r'|  is  the  source-point  to  observation-point  distance.   Equa- 
tion (1.9)  may  be  used  to  form  electric  field  integral  equations  for 
antennas  and  scatterers  which  are  shapes  other  than  finite  circular  cylin- 
ders. 

Since  the  form  of  the  CSF  integral  equation.  Equation  (1.4),  is  sim- 
pler than  either  that  of  Pocklington  or  of  Hallen,  it  has  been  conjectured 


that  the  numerical  solution  of  CSF  integral  equations  should  be  more  effi- 
cient.  However,  the  CSF  formulation  is  not  without  difficulties.   The 
current  density  function  J_  may  not  be  twice-dif ferentiable  throughout  all 
of  space.   Hence,  the  current  source-function  may  not  exist  everywhere. 
This  may  require  that  the  concept  of  functions  be  generalized  according  to 
the  rules  of  Schwartz  distribution  theory.   Furthermore,  differentiation 
of  J_  may  produce  singularities  in  U  of  such  order  that  the  integral  (1.9) 
is  divergent.   In  this  case  either  the  theory  of  distributions  or  the  con- 
cept of  the  finite  part  of  divergent  integrals  is  required. 

The  work  reported  here  was  undertaken  to  establish  the  validity  and 
feasibility  of  the  CSF  technique.   For  this  purpose,  some  classical  pro- 
blems of  electromagnetic  scattering  are  attacked  using  the  CSF  approach  so 
that  comparisons  can  be  made.   The  validation  of  the  CSF  formulation  for 
scattering  by  a  semi- infinite  conducting  plane  is  reported  here  in  detail. 
Chapter  2  surveys  previous  work  on  certain  aspects  of  the  half-plane  pro- 
blem and  its  relation  to  the  CSF  technique.   Chapter  3  details  the  analytic 
solution  to  the  half-plane  problem  using  the  current  source-function 
technique.   Chapters  4  and  5  discuss  the  numerical  solution  of  the  half- 
plane  problem  by  the  CSF  technique  for  the  E-polarization  and  the  H- 
polarization,  respectively.   An  attempt  to  extend  the  CSF  technique  to  the 
strip  problem  is  described  in  Chapter  6.   Chapter  7  presents  a  discussion 
of  the  possible  extension  of  the  CSF  technique  to  the  three-dimensional 
time-dependent  case.   Conclusions  and  suggestions  for  further  work  are 
given  in  Chapter  8. 


2.   LITERATURE  SURVEY  AND  BACKGROUND  MATERIAL 

The  solution  for  the  current  induced  on  a  perfectly  conducting  half- 
plane  by  an  incident  plane  wave  was  chosen  as  a  first  test  of  the  CSF 
technique.   A  number  of  mathematical  procedures  have  previously  been 
established  to  provide  solutions  to  this  classic  problem.   Some  early 
authors  developed  results  which,  accepted  as  proper  at  the  time,  were  later 
shown  to  be  improper  because  they  did  not  satisfy  the  edge  condition. 
After  the  development  of  the  edge  condition,  other  researchers  published 
papers  that  corrected  such  results  of  the  early  authors.   In  order  to  make 
the  earlier  results  obey  the  edge  condition,  the  later  authors  sometimes 
found  that  another  function  which  satisfied  the  requirements  of  the  pro- 
blem had  to  be  subtracted  from  the  original  solution.   It  turns  out  that 
a  similar  function  must  be  added  to  have  the  current  source-function  ex- 
hibit the  correct  edge  behavior.   [For  example,  see  Equation  (4.2)  of 
Chapter  3.]   This  additional  function  is  not  integrable  in  the  ordinary 
sense,  so  that  the  theory  of  divergent  integrals  must  be  used.   Integral 
equation  and  integro-dif ferential  equation  formulations  for  the  half-plane 
problem  are  given  in  Section  2.1.   The  partial  differential  equation  CSF 
formulation  for  the  half-plane  problem  is  discussed  in  Section  2.2.   The 
findings  of  the  authors  who  altered  early  results  to  make  them  conform  to 
the  edge  condition  are  described  in  Section  2.3.   Divergent  integrals  are 
discussed  in  Section  2.4. 

2. 1   Integral  and  Integro-dif ferential  Equation  Formulations 

Consider  a  perfectly  conducting  half-plane  subjected  to  an  incident 
plane  wave  of  radian  frequency  u)  polarized  with  either  the  electric  or  the 


magnetic  field  parallel  to  the  edge  of  the  conductor.   These  will  be  re- 
ferred to  as  the  E-polarization  and  the  H-polarization,  respectively. 
Figure  2.1  shows  the  geometry  and  the  coordinate  system  for  each  of  these 
polarizations.   Throughout  this  chapter,  M  denotes  the  metal  or  perfectly 
conducting  sheet  defined  by  x  =  0,  z  >  0  in  Figure  2.1. 

The  integral  equation  and  integro-dif ferential  equation  formulations 
for,  respectively,  the  E-polarization  and  the  H-polarization  half-plane 
currents  are  well  known.   For  the  E-polarization  [see  Figure  2.1(a)],  the 
integral  equation  for  the  current  I„  is 

oo 

Ig(z')  H^^^klz-z'|)dz'  =  :^  eJ,       z  >  0.         (1.1) 
0  ° 

For  the  H-polarization  [see  Figure  2.1(b)],  the  integro-dif ferential  equa- 
tion for  the  current  I„  is 

n 


(  4  ^  "'> 

dz 


I^(z')  H^^^k|z-z'|)dz'  =  1^  E^,    z  >  0.   (1.2) 


H„   is  the  Hankel  function  of  the  first  kind  and  order  zero  and  is  the 
kernel  for  the  equations.   Z-  is  the  intrinsic  impedance  of  the  (free- 
space)  medium.   I  (z')  and  I  (z'),  respectively,  are  the  unknown  E-  and 
E  H 

H-polarization  currents.   E  and  E  are  the  tangential  incident  electric 

y      z 

fields  evaluated  at  x  =  0.   For  plane  wave  incident  fields,  these  are 

_,i    -ikz  COS0   „  1 ..  /   _  /I  ^^ 

E  =  e  Volts/meter  (1.3) 


and 


T-i    •  n  -ikz  cose   „  1 ..  /   _  /I  /\ 

E  =  sxne  e  Volts/meter  (1.4) 
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Figure  2.1.   The  Geometry  of  the  Half-plane  Problem  for  (a)  the  E- 
polarizatlon,  and  (b)  the  H-polarization. 


Equations  (1.1)  and  (1.2)  become 


-r    /    ,  s  ,t(1) /I  I    tisj  ?  ^   -ikz  cos9                   ,,  ^. 

I  (z')  h;^  ^(k  z-z'  )dz'  =  T-—   e         ,     z  >  0          (1.5) 

Q  E  0  kZQ 

and 


d L12^(-r/'|^u(l)/'ll    il\jt    ^^       -Q   -ikz  cos  6         ,^     ,, 

-L  1^  ^    I  (z')  H    (k  z-z'  )dz'  =  :—  sine  e         ,  z;  >  0.  (1-6) 

0 


(  ^  +  k  ) 
dz 


The  integral  equations  for  the  CSF  formulation  for  the  half-plane 

problem  follow  from  (1.8)  and  (1.9)  of  Chapter  1.   For  the  E-polarization, 

the  current  J  ,  which  has  z-variation  I  (z) ,  flows  in  the  y-direction  and 
t,  t, 

is  independent  of  y.   This  makes  V-J   =  0  so  that  the  current  source- 

E 

~  2 

function,  given  by  (1.8)  of  Chapter  1,  is  equal  to  k  J  .   If  the  z-variation 

E 

of  the  current  source-function  is  denoted  by  u  (z) ,  then 

E 

Ug(z)  =  k^Ig(z).  (1.7) 

Hence,  for  the  E-polarization,  the  CSF  integral  equation  is  identical  in 
form  to  (1.5) 


u^(z')  H^l\k|z-z'|)dz'  =^e-i^^  ^°^^   z  >  0.     (1.8) 
0  ' 

The  solution  for  the  current  source-function  u^  is  trivially  different  from 

E 

the  solution  for  I„. 

E 

For  the  H-polarization,  the  current  J„  flows  normal  to  the  edge  of  the 

H 

conducting  half-plane  and  must  be  zero  at  the  edge.   Hence,  VV*J  /  0  so 

n 

that  the  current  source-function,  given  by  (1.8)  of  Chapter  1,  contains 


partial  derivatives  of  the  current  J„.   For  this  polarization,  the  CSF 

H 

technique  for  the  half-plane  problem  is  a  two-step  process.   First,  the 
integral  equation 


,    ,,  „(1),,  I    fi\j  I   4k   .  -   -ikz  COS0       ^     ,^    _, 
u^(z')  h;^  '(k  z-z'  )dz'  =  ■;;—  sxnO  e         ,   z  >  0,    (1.9) 

must  be  solved  for  u  (z')  and  then  the  inhomogeneous  differential  equation 

rl 

^^^H    2 

-^   +  k^Ij^  =  Uj^(z)  (1.10) 

dz 

must  be  solved  for  I  (z) .   The  reader  is  referred  to  Section  3.2  for  the 

H 

complete  discussion.   Using  the  known  behavior  of  the  current  I„  near  the 

rl 

edge,  and  differentiating  twice  according  to  (1.10)  yields  a  current 
source-function  u  (z)  which  is  not  locally  integrable.   This  requires  a 
special  interpretation  for  the  integral  in  (1.9).   The  interpretation  of 
this  integral  is  treated  in  Section  2.4. 

Equations  (1.5)  and  (1.6)  have  been  solved  by  a  variety  of  methods. 
One  popular  method  has  been  the  Wiener-Hopf  technique.   Copson  (1946)  was 
apparently  the  first  to  use  the  Wiener-Hopf  technique  to  solve  the  integral 
equation  (1.5).   The  use  of  the  Wiener-Hopf  technique  for  solving  (1.5)  and 
(1.6)  is  given  by  Noble  (1958).   Both  Noble  and  Karp  (1950,  p.  418)  comment 
on  the  non-uniqueness  of  Wiener-Hopf  solutions.   In  treating  the  H- 
polarization  half-plane  problem,  Karp  shows  how  terms  of  the  form  H^   (kr)>< 

2 

cos(<|)/2)  and  certain  of  its  derivatives  arise  due  to  the  Wiener-Hopf  solu- 
tion technique.   (r  and  isf   are  the  polar  coordinates  of  a  point  in  space.) 
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He  indicates  that  all  such  terms  satisfy  all  of  the  conditions  of  the  pro- 
blem and  that  each  term  has  its  own  singular  edge  behavior.   Karp  concludes 
that  "for  uniqueness  it  is  necessary  to  specify  the  behavior  of  the  solu- 
tion at  the  origin  also."   Thus,  an  additional  condition,  the  edge  condi- 
tion, is  needed  to  rule  out  all  terms  having  the  improper  singularity  at 
the  edge.   Several  such  terms  must  be  included,  however,  in  the  Wiener- 

Hopf  solution  of  the  integral  equation  (1.9)  for  u  .   This  is  given  in 

n 

Chapter  3.   The  next  section  shows  how  such  terms  arise  when  the  classical 
solution  of  the  half-plane  problem  is  differentiated.   Each  differentiation 
introduces  a  higher  order  singularity  at  the  edge. 

2.2   The  Wave  Equation  and  a  Magnetic  Field  Source-Function 

In  the  last  section,  an  integral  equation  for  the  H-polarization  half- 
plane  current  source-function  u  was  developed.   In  this  section,  the 

n 
current  source-function  for  the  same  problem  is  found  using  a  differential 

equation  approach  instead  of  the  integral  equation  approach.   To  do  this, 
a  "magnetic  field  source-function"  which  satisfies  the  scalar  Helmholtz 
equation  subject  to  the  Neumann  boundary  condition  is  introduced.   Once  the 
solution  for  the  magnetic  field  source-function  is  found,  the  current  source- 
function  is  derived  from  the  magnetic  field  source-function  in  the  same  way 
that  the  current  is  obtained  from  the  magnetic  field. 

For  the  E-polarization  half-plane  problem,  the  total  electric  field 
E   is 

y 

E^  =  E^  +  e"-  (2.1) 

y   y   y 

i      s 
where  E  and  E  are  the  incident  and  scattered  fields,  respectively.   The 

y     y 

total  field  must  satisfy  the  scalar  Helmholtz  equation 
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(V^  +  k^)E'^  =  0  (2.2) 

subject  to  the  Dirichlet  boundary  condition 

E^  =  0        on  M.  (2.3) 

y 

2     2 
2    d  9 

Here,  V   =  — ^  +  ~~T  ^^d  k  =  w/c  where  c  is  the  speed  of  light.   Conditions 

3x    Sz 
on  the  behavior  of  the  field  near  the  edge  and  near  infinity  are  also  re- 
quired.  If  the  field  is  known,  the  E-polarization  current  I  may  be  found 
from  the  field  by  using  the  equation  for  the  discontinuity  in  the  tangential 
magnetic  field 

,-8E^  9E^  ^ 

^e(^)  =j;^  kr^-  =  0-^'  ^>  -  ^  (-  =  °-'  ^A         (2.4) 


where  y  is  the  permeability  of  the  (free-space)  medium.   The  current  source- 
function  for  this  case  is  given  by  (1.7)  to  be 

Ug(z)  =  k2lg(z).  (2.5) 

I   is  given  by  (2.4). 

For  the  H-polarization,  the  total  magnetic  field  H   is 

H^  =  H^  +  H^^  (2.6) 

y   y   y 

s      i 
where  H  and  H  are  the  scattered  and  incident  magnetic  fields,  respectively. 

The  incident  magnetic  field  can  be  written  as 


^i  ^  ^-ikr  cos(*  -  0)  ^2.7) 


12 


where  (r,(}))  are  the  polar  coordinates  of  the  observation  point  and  6  is 
the  angle  of  incidence  given  in  Figure  2.1.  The  field  must  satisfy  the 
scalar  Helmholtz  equation 

(V^  +  k^)H'^  =  0  (2.8) 

subject  to  the  Neumann  boundary  condition 


8H^ 


JL  = 


3x 


=  0         on  M.  (2.9) 


For  this  polarization  the  current  I  on  the  half-plane  is 

rl 
I„  =  H^  (x  =  0+,  z)  -  H*^  (x  =  0-,  z),  (2.10) 

and  the  current  source-function  u..,  given  by  (1.10),  is 

H. 

'^^^H    2 
Uj^(z)  =  -^+  k^ljj  (2.11) 

dz 


where  I   is  given  by  (2.10).   An  expression  for  the  current  source-function, 
n 

which  is  analogous  to  (2.10)  for  the  current,  can  be  found  if  a  magnetic 
field  source-function 

9\(x,z) 

T  (x,z)  =  ^ +  k^H  (x,z)  (2.12) 

^  3z  ^ 

is  introduced.   The  expression  for  the  current  source-function  then  becomes 

u„(z)  =  T*^  (x  =  0+,  z)  -  T*^  (x  =  0-,  z).  (2.13) 

H       y  y 
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Bouwkamp  (1946)  shows  that  any  solution  of  the  wave  equation  may  be 
differentiated  to  obtain  another  solution.   This  was  apparently  first 
mentioned  by  Lord  Rayleigh  (1897).   In  discussing  the  half-plane  problem, 
Bouwkamp  indicates  that  an  n   order  derivative  with  respect  to  z  of  H  , 

y 

for  example,  still  satisfies  the  scalar  Helmhotz  equation  (2.8)  subject  to 
the  Neumann  boundary  condition  (2.9).   The  order  of  the  singularity  at  the 
edge  of  the  half-plane  becomes  higher  and  higher  after  each  differentiation. 
It  is  easily  shown  that  T  (x,z),  given  by  (2.12),  obeys  the  scalar 

Helmholtz  equation  (2.8)  subject  to  (2.9).   Clearly,  if  H   satisfies  (2.8), 

2 
2    2    9      2   t  t 

then  (V  +  k  )(  —^r  +  k  )H  =0  and  the  magnetic  field  source-function  T 

3z        ^  ^ 

also  satisfies  scalar  Helmholtz  equation 

(V^  +  k^)T'^  =  0.  (2.14) 


t     ^        .„t     ,„t 


8T     r-^2 


Since 


J. 


3x 


'         +k2 


3z2 


9H       9H 

y      y 
— ^  and  — —   =  0  on  M,  the  boundary  condition  on  the 

3x       dx 


magnetic  field  source-function  T  becomes 

— ^  =0        on  M.  (2.15) 

8x 

It  is  seen  that  the  magnetic  field  source-function  satisfies  exactly  the 

same  conditions  as  does  the  magnetic  field  H  .   For  this  case,  however, 

the  incident  field  (the  incident  magnetic  field  source-function) ,  found 

from  (2.7)  and  (2.12),  is 

T^  =  (  ^  +  k2)H^  =  k^  sin^e  e"^^^  '^"^^^  "  '\  (2.16) 

y      9z2        y 
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This  has  the  same  spatial  variation  as  H  .   The  only  difference  is  the 

y 

2    2 
constant  k  sin  6.   It  becomes  apparent  that  it  might  be  possible  to 

handle  certain  problems  by  a  field  source-function  approach,  i.e.,  solving 


for  T  and  then  finding  H   from  (2.12). 

y  y 

In  order  to  find  the  current  source-function  u  using  a  differential 

H 

equation  approach,  the  scalar  Helmholtz  equation  (2.14)  with  the  Neumann 
boundary  condition  (2.15)  and  the  incident  field  (2.16)  must  be  solved  for 
T  .   With  T  known,  Equation  (2.13)  is  used  to  find  the  current  source- 

y      y 

function.   Instead  of  actually  solving  the  differential  equation  (2.14) 
subject  to  the  boundary  condition  (2.15),  both  Equation  (2.12)  and  the 
known  solution  for  H  of  the  half-plane  problem  are  used. 

Sommerfeld  (1896)  was  the  first  to  give  the  exact  solution  of  the 
half-plane  problem.   For  the  H-polarization  problem,  Sommerfeld 's  solution 
for  the  total  magnetic  field  due  to  the  incident  field  (2.7)  is 

/2kr  cos|(4>-e) 


Hj(r,<t),e)  =  ^ 


-iTT/4 


-ikr  cos((|)-6) 


.  2 
e     dx 


+  e 


-ikr  cos((t)+e) 


/2kr  cos^(())+e)^ 
2 


IT 


dx 


(2.17) 


The  solution  for  the  magnetic  field  source-function  can  be  obtained  from 
(2.12)  and  (2.17).   Bouwkamp  (1946,  Equation  (6),  page  471)  gives  expres- 
sions for  the  partial  derivatives  of  Sommerfeld ' s  solution.   By  using 
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2  t   2 
these  expressions,  8  H  /9z   can  be  straightforwardly  found.   The  required 

solution  for  the  magnetic  field  source-function  becomes 


where 


Ty(r,<}.,e)  =  k^  sin^e  Hj(r,(}.,6)  +  T^(r,(t.,e)  (2.18) 


T^(r,'l>,e)  = 


2  2?        i(kr+7r/4)  r  cos|<j)i 

=  k  (-)   cos|9  <cos|(()(cos(})-cos9)  -  >  (2.19) 

'"  /kr     '•  2ikr  ^' 

H  on  the  right-hand  side  of  (2.18)  is  given  by  (2.17).   It  may  be  shown 
that  T  obeys  the  scalar  Helmholtz  equation  subject  to  a  Neumann  boundary 
condition.   The  subscript  N  is  a  reminder  of  this  fact.   T  may  also  be 
written  in  terms  of  Hankel  functions  H    as 

V 

T  (r,(}),0)  =  k^  cos^e  e^'"^^     I     a  cos[  (n-l-|)(f)]  H''|^!(kr)  (2.20) 

^  n=0  "  ""  2- 

where 


a„  =  i(§  -  cos6)  and  a^  =  ~  i^-  (2.21) 

The  current  source-function  may  be  obtained  by  substituting  (2.18)  and 
(2.20)  in  (2.13)  after  changing  (r.c]))  to  (x,z).   It  then  becomes 


u„(z)  =  k^  sin^e  I„  +  I  k^cosfe  e^"^^^   ?  a  H^il(kz)         (2.22) 

0  n=0       ^ 
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where  the  a.  are  again  given  by  (2.21)  and  the  current  I„  is  given  in  terms 
1  rl 

of  H  by  (2.10).   This  gives  the  current  source-function  by  a  differential 
equation  approach  in  terms  of  the  previously  derived  results  of  Sommerfeld 
(1896)  and  Bouwkamp  (1946).   The  last  terms  in  (2.22)  have  been  divided  by 
the  free  space  intrinsic  impedance  Z_  to  conform  with  the  notation  of 
Chapter  3.   From  (2.19),  both  the  magnetic  field  and  current  source- 
functions  become  infinite  as 

_3. 

z  ^   as  z  ^-  0, 

i.e.,  as  the  edge  is  approached. 

If  the  scalar  Helmholtz  equation  subject  to  the  Neumann  boundary  con- 
dition had  somehow  been  solved  instead  of  just  differentiating  Sommerfeld 's 
solution,  the  summation  index  on  the  series  in  (2.20)  would  have  extended 
from  zero  to  infinity.   From  (2.18),  it  is  seen  that  the  solution  for  T 
is  composed  of  two  parts.   The  first  part  is  that  due  to  the  incident  field 

T  .   Note  that  the  first  term  in  (2.18)  is  just  the  magnetic  field  H 

2    2  i 

multiplied  by  k  sin  0.   This  makes  sense  because  the  incident  field  T   is 

y 

just  the  incident  magnetic  field  H  multiplied  by  the  same  constant.   The 

second  part  is  just  comprised  of  terms  of  the  form  cos(n+g)!})  H  _^(kr) . 

n-i-2 

Such  terms  satisfy  the  Helmholtz  equation,  the  boundary  condition,  and  the 
radiation  condition  independently  of  the  incident  field.   As  n  in  the  series 
(2.20)  becomes  larger,  however,  the  order  of  the  singularity  at  the  edge 
becomes  higher  and  higher.   The  edge  condition,  the  subject  of  the  next 
section,  places  an  upper  limit  on  the  values  allowed  for  n. 
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2.3  The  Edge  Condition 

Since  its  development  in  the  1940' s,  the  edge  condition  has  played 
a  crucial  role  in  electromagnetics  problems  for  objects  with  edges.   It 
should  be  expected  to  be  equally  important  in  the  source-function  develop- 
ment. 

A  number  of  papers  were  written  in  the  late  1940 's  and  early  1950 's 

that  obtained  results  which  obeyed  the  edge  condition  from  those  that  did 

not.   In  the  case  of  half-plane  problems,  the  proper  results  were  often 

obtained  from  the  improper  ones  by  adding  or  subtracting  functions,  such 

as  those  in  (2.20)  with  radial  variation  H  _^(kr) ,  that  cancel  the  improper 

xx-t-2 

singularity  at  the  edge. 

For  example,  Copson  (1950,  p.  283)  uses  integral  equation  techniques 

_3. 

to  find  a  solution  to  the  half-plane  problem  which  has  z  ^  edge  behavior. 
By  subtracting  a  term  which  has  this  same  edge  behavior  and  which  also 
satisfies  all  of  the  conditions  of  the  problem,  he  is  able  to  obtain  the 
correct  solution. 

The  procedure  which  Brorawich  (1915)  used  to  deduce  the  field  of  a 
dipole  in  the  presence  of  a  wedge  yields  inadmissable  edge  singularities. 
Bromwich's  solution  satisfies  the  edge  condition  only  for  the  case  when 
the  axis  of  the  electric  dipole  is  parallel  to  the  edge  of  the  half-plane. 
Woods  (1957)  extends  Bromwich's  method  to  handle  arbitrary  orientations 
of  the  dipole.   She  finds  that  appropriate  solutions  of  the  wave  equation 
must  be  subtracted  from  the  Brorawich  solution  to  satisfy  the  edge  condition. 
These  solutions  are  of  the  form 


^.      r    sin(n+f)^ 


H::^(kr)  (3.1) 


^     '^  cos  (n+g)  (j> 
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It  is  terms  of  this  type  which  appear  in  (2.20)  and  are  part  of  the  mag- 
netic field  source-function  in  (2.18). 

In  the  Copson  and  Woods  papers,  each  author  finds  that  his  solution 
has  a  singularity  of  too  high  an  order  at  the  edge.   Each  then  finds 
another  function  with  this  same  singularity  which  otherwise  satisfies  all 
of  the  requirements  of  the  problem  and  subtracts  this  from  the  original 
solution  to  obtain  the  correct  solution.   The  situation  with  the  CSF  tech- 
nique is  just  the  opposite.   The  straightforward  solution  of  the  integral 
equation  (1.9)  yields  a  result  with  an  edge  singularity  that  is  not  high 
enough.   A  term  with  the  proper  edge  behavior  must  be  added  to  the  first 
part  of  the  solution  to  obtain  the  correct  solution.   This  is  described  in 
Section  3.3. 

The  edge  conditions  for  the  E-polarization  and  H-polarization  currents 
on  the  half-plane  are 

1 


Ig  =  0(  z  2),      z  ^  0,  (3.2) 


and 


1 


T   =  0(  z2),       z  ^  0,  (3.3) 

n 

respectively.   [See  Mittra  and  Lee  (1971,  pp.  4-11).]   The  edge  conditions 
for  the  E-  and  H-polarization  current  source-functions  of  (2.5)  and  (2.11), 
respectively,  are 

u„  =  0(  z~2),        z  ^  0,  (3.4) 

and 

_3. 

Uj^  =  0(  z  2),        z  ^  0.  (3.5) 
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Equation  (2.22)  for  u„  satisfies  the  edge  condition.   It  is  the  edge  con- 

ri 

dition  which  prohibits  the  addition  of  terms  like  those  of  (3.1)  for 

n  >  1  to  the  magnetic  field  source-function  of  (2.18). 

A  function  is  said  to  be  locally  integrable  if  it  is  integrable  in 

the  Lebesgue  sense  over  every  finite  interval.   The  current  source-function 

u  (z)  of  (2.11),  satisfying  the  edge  condition  (3.5),  is  not  locally  inte- 

grable.   The  formal  integration  of  u  near  the  edge  gives 

H 

6 
z  ^  dz  =  2  lira  e  2  -  26  2.  (3.6) 

0  ^"° 

Since  the  limit  does  not  exist  this  is  a  divergent  integral.   Such  inte- 
grals are  discussed  in  the  next  section. 

2.4   Divergent  Integrals  and  the  Finite  Part 

Some  authors  writing  in  the  early  1950 's  commented  that  integrals  of 

the  type  (1.9)  may  be  divergent.   In  several  places^  Bouwkamp  (1954)  points 

2   2 
out  that  if  the  d  /dz   operator  of  (1.6),  for  example,  is  taken  under  the 

integral  sign,  the  resulting  kernel  is  non-integrable.   This  is  true,  but 
it  has  been  shown  that  the  integral  can  be  assigned  a  meaning  by  introduc- 
ing the  concept  of  the  finite  part.   This  concept  dates  back  to  A.  L.  Cauchy 
(1826)  who  used  it  to  assign  a  meaning  to  the  gamma  function  for  negative 
values  of  the  argument.   Hadamard  (1923)  extends  the  concept  to  the  multi- 
dimensional case.   A  lengthy  bibliography  and  a  general  discussion  of  the 
history  of  the  finite  part  of  divergent  integrals  is  given  by  Bureau  (1955, 


^p.  40;  pp.  68-69, 
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pp.  143-146).   Both  Hadamard  (1923)  and  Bureau  (1955)  use  the  finite  part 
concept  in  connection  with  solving  partial  differential  equations. 

Friedlander  (1951)  uses  a  modification  of  the  method  developed  by 
Hadamard  for  Cauchy's  problem  to  solve  the  half-plane  problem  with  time- 
dependent  excitation.   He  shows  that  the  integrals  arising  in  the  solution 
process  must  be  interpreted  as  finite  part  integrals. 

Equation  (1.9)  must  be  a  finite  part  integral  equation  because  u(z') 
is  not  locally  integrable.   If  the  notation  "Fp"  is  used  for  the  finite 
part,  this  equation  becomes 


Fp 


,    ,.  „(1)/,  I    tiN  J  I    ^k   .  _   -ikz  cos6 

u„(z')  H^   (k  z-z'  )  dz   =  -r—  sine  e         , 

H  0                 Zq 

°  z>0.  (4.1) 


This  is  a  Fredholm  finite  part  integral  equation  of  the  first  kind  over 
semi-infinite  range. 

Methods  for  solving  finite  part  integral  equations  have  been  studied 
by  several  authors.   Butzer  (1959)  and  Boehme  (1963)  use  operational  cal- 
culus to  study  the  finite  part  of  divergent  convolution  integrals.   They 
both  treat  finite  part  singular  integral  equations  of  Volterra  type. 
Wiener  (1962)  treats  linear  finite  part  integral  equations  of  Fredholm 
second  kind  and  Volterra  types.   In  a  series  of  over  thirty  papers^  pub- 
lished over  the  last  fifteen  years,  he  and  his  colleagues  treat  many  finite 
part  integral  equations.   However,  it  appears  as  if  Fredholm  finite  part 
integral  equations  of  the  first  kind  with  Hankel  function  kernels,  such  as 


^Generally  published  in  Wiss.  Z.  M.-L.  Univ.  Halle — Wittenberg,  Math. 
Nachr . ,  or  Beitrage  zur  Analysis. 
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(4.1),  have  not  yet  been  treated  explicitly. 

Belward  (1972)  obtains  both  the  classical  and  generalized  function 
solutions  of  the  integral  equation 


G(t)KQ(|z-t|)dt  =  F(z),  0  <  z  <  «>,  (4.2) 


by  using  the  properties  of  fractional  integrals.   Here  K^  is  the  MacDonald 
(modified  Bessel)  function.   It  is  related  to  the  Hankel  function  Hq   (x) 


by 


Kq(x)  =  ^H^^^ix).  (4.3) 


The  solution  of  the  finite  part  integral  equation  (4.1)  is  obtained  by  just 
making  the  indicated  change  of  variable  in  Belward 's  generalized  function 
solution.   Generalized  functions  use  the  finite  part  concept  in  their  de- 
finition.  [See,  for  example,  Schwartz  (1966a,  pp.  33-43)].   A  discussion 
of  the  Schwartz  distribution  theory  formulation  of  the  current  source- 
function  technique  is  presented  in  Section  6.3. 

Hadamard  (1923,  pp.  134-141)  introduces  the  theory  of  the  finite  part 
of  divergent  integrals  and  discusses  several  examples  at  length.   This 
excellent  discussion  should  be  consulted  by  those  interested  in  the  total 
theory.   Several  examples  of  finite  part  integration  which  are  relevant  to 
the  present  work  are  given  here.   As  a  first  example,  consider  the  integral 


dt   ^    2 
(b-t)^    (b-t)2 


(4.4) 
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The  right-hand  side  goes  to  infinity  when  it  is  evaluated  at  the  upper 
limit.   The  finite  part  of  this  expression  is  found  by  retaining  only  the 
value  obtained  when  the  right-hand  side  is  evaluated  at  the  lower  limit. 
Hence, 


Fp 


dt 


(b-t)2 


-2 

T 

(b-a)2 


(4.5) 


As  another  example  of  finite  part  calculation,  consider  the  integral 


it 

Vdt, 

t2 


X  >  0, 


(4.6) 


Making  the  lower  limit  e  and  formally  Integrating  by  parts  gives 


r^  It 
V  dt  =  -2  ^ 


it 


+  2i 


X  . 

r  It 
e 


dt. 


(4.7) 


Clearly,  in  the  limit  as  e  ^  0,  the  first  term  becomes  infinite, 
finite  part  of  this  integral  is  defined  as 


The 


Fp 


r^  it 
— 3—  dt  =  Ixm 
t2       e-^0 


r^  it 

e    ,  2 

^dt  -  — 

t2  /I 


"■  Z 


X  >  0. 


(4.8a) 


Substituting  (4.7)  in  this  expression  and  taking  the  limit  gives 


Fp 


r^  it 

Vdt  = 


IX 


-2  - —  +  4i 


X 
!         ■     ^ 
It 


dt,    X  >  0. 


(4.8b) 


23 


-5/2 
A  t     singularity  in  the  integrand  obtains 


X  .^  .  X 


Fp 


r  e^"^  ,      2  e^^  ^  2.  ^ 

-^2  '^^  =  -  IT       '^   ^P 
t  x'^^ 


^  dt,   X  >  0.         (4.9) 


t 


2 


0  0 

More  terms  are  added  as  still  higher  order  singularities  are  considered. 
If  both  sides  of  (4.8b)  are  formally  differentiated,  note  that  equality 
is  obtained. 

The  above  calculation  is  carried  out  by  using  integration  by  parts. 
This  calculation  may  also  be  done  by  expanding  e   in  its  Taylor  series 
around  t  =  0,  integrating  term  by  term,  and  retaining  only  the  well  be- 
haved terms.   This  approach  is  valid  in  the  complex  plane  and  is  described 
by  Zemanian  (1965,  p.  58).   For  some  finite  part  calculations,  the  Taylor 
series  approach  would  be  preferred  to  the  integration  by  parts  approach. 
Integration  by  parts  will  generally  be  used  here. 

The  nonlocally  integrable  portion  of  the  integrand  will  be  labelled 

a  "pseudof unction"  and  denoted  by  "Pf."    For  example,  consider  the 

it 
pseudof unction  Pf[l!^(t)  ^3—]  where  l^(t)    is  the  unit  characteristic  func- 

tion  of  the  interval  [0,x].   The  integral  of  this  pseudofunction  is  defined 

by 


it 
Pf  [lj?(t)  Vl  dt  =  Fp 
t2 


r^  it 

V-  dt.  (4.10) 

t^ 
0 


The  Pf  notation  is  useful  as  a  reminder  to  indicate  that  the  finite  part 
must  be  taken  if  the  function  is  integrated  over  limits  including  the  sin- 
gular point . 
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A  useful  property  of  finite  part  integrals  with  difference  kernels 
is  that  they  may  be  differentiated  under  the  integral  sign  as  long  as  the 
finite  part  is  taken  of  the  resulting  integral.   Consider  the  integral 


r      IX 


Fp 


3. 
T2 


dT   H^^^(|z-t|)    dt  = 


-4/116 


-iTT/4 


z   >   0. 


(4.11) 


0  0 


Differentiating  both  sides  of  this  equation  with  respect  to  z  and  using 
the  fact  that 


^H<»(U-tt)  = 


at  "0  (1^  h) 


(4.12) 


obtains 


0  = 


Fp 


IT 

e 

3. 

t2 


^^J^4^\\^-^\)<i^> 


>   0. 


0    0 


Integrating  by  parts  with  e  as  the  lower  limit  yields 


00    t 


Fp 


'  ^''  dT  ^Hil>(|z-tl)dt  = 


4  "   9t  0 


e    0 


(4.13) 


H^^^|z-t|)  Fp 


t  . 


3^ 
T2 


dT 


0 


VH^l>(|z-t|)dt. 

t2 


(4.14) 


Substituting  (4.8b)  in  the  first  term  on  the  right-hand  side  shows  that 

1 
this  terra  goes  to  infinity  as  e  ^  as  e  goes  to  zero.   The  other  terms  at 

e  and  the  terms  at  infinity  vanish.   The  right-hand  side  becomes 


25 


it 
e 

3. 
t2 


H^^^(|z-t|)dt 


2H^^\|z|) 


(4.15) 


In  the  limit  as  e  goes  to  zero,  this  is  just 


-  Fp 


it 

V  H^'-Mz-thdt. 


,(1) 


(4.16) 


0 


This  can  be  seen  by  expanding  e'^   and  H^  "^  ( |  z-t  ]  )  in  their  Taylor's  series, 
The  first  term  in  each  series  is,  respectively,  1  and  Hq   (|Z|)'   Substi- 
tuting these  in  (4.15)  shows  that  the  divergent  part  of  the  integral  in 
(4.15)  is  just  given  by  2Hq  ^(|z|)//e.   Thus,  by  the  four  equations  above. 


Fp 


f  e     (1)  I    I 
^  H^'-Mz-t|)dt  =  0, 


z  >  0. 


0 


(4.17) 


Using  (4.15)  and  (4.17),  it  can  be  shown  that 

00 

it  „(1) 


Fp 


VH^^^|z-t|)dt  = 

t2 


0 


e   H^  ^(|z-t|) 


H^'^lzl) 


3. 
t2 


dt  =  0, 


z  >  0. 


(4.18) 


In  convolution  notation,  this  is 


it 


,(1) 


Pf  [l_^(t)e"Vt2]  *  H^"'(|t|)  =0,     z  >  0, 


(4.19) 


where  1  (t)  is  the  unit  step  function.   This  example  shows  that  there  are 
non-zero  functions  which  yield  zero  on  the  right-hand  side,  i.e.,  the 
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homogeneous  finite  part  integral  equation  has  non-zero  solutions.   It  also 
illustrates  that  the  derivative  operator  may  be  taken  under  the  integral 
sign  as  long  as  the  finite  part  is  taken  of  the  resulting  integral. 

Consider  the  integral  of  (1.6).   Taking  the  second  derivative  under 
the  integral  sign  as  described  above  shows  that 


dz 


I^(t)  H^^\k|z-t|)dt  =  Fp 


I„(t) 


dt 


2  H 


H^^^k|z-t|)dt, 


z  >  0, 


(4.20) 


where 


Fp 


dt 


2   Ih(^> 


,(1) 


H^  '^(k|z-t|)dt  = 


=  lim  ■ 
e  ^0 


dt 


2   H 


,(1) 


H^^^k|z-t|)dt  +  [^  I^(t)) 


H^'^klzl) 


'^  e 


(4.21) 


In  this  case,  the  last  term  must  be  included  because  dl„/dt  =  0(  t  ^  )  as 

ri 

t  ->  0  by  the  edge  condition  on  I„(t).   In  this  way,  the  integral  equation 

n 

(1.6)  may  be  written  in  the  form 


Fp 


Uj^(t)  H^^\k|z-tl)dt 


4k   .  „   -ikz  cos6 
■=—  sin6  e 

^0 


z  >  0 


(4.22) 


where 


<^^^H    2 


(4.23) 
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These  are  the  basic  equations  involved  in  the  current  source-function 
technique  for  the  half-plane  problem. 

2.5   Conclusion 

For  the  H-polarization  half-plane  problem,  a  "magnetic  field  source- 
function"  is  introduced  which  allows  the  current  source-function  to  be 
found  from  field  quantities.   In  this  way,  a  differential  equation  approach 
to  finding  the  current  source-function  is  derived.   It  is  noted  that  all 

terms  of  the  form  H  _^(kr)cos  (n-l-§)<})  satisfy  the  source-free  scalar  Helmholtz 

n+g 

equation  with  the  Neumann  boundary  condition,  but  that  the  edge  condition 

_3. 

restricts  n  to  be  at  most  one.   The  term  for  n  =  1  has  t  ^  edge  behavior 
and,  therefore,  is  not  integrable  in  the  ordinary  sense.   The  concept  of 
the  finite  part  of  divergent  integrals  is  introduced  so  that  integral  equa- 
tions for  the  current  source-function  can  be  interpreted.   The  CSF  tech- 
nique requires  that  a  finite  part  integral  equation  must  be  solved  for 

u„(z).   It  is  shown  that  this  integral  equation  may  be  found  from  Pockling- 
n 

2   2    2 
ton's  integral  equation  by  taking  the  (9  /3z  +  k  )  operator  under  the 

integral  sign.   The  next  chapter  treats  the  solution  of  the  half-plane  pro- 
blem by  the  CSF  technique. 
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3.   THE  CURRENT  SOURCE-FUNCTION  TECHNIQUE  APPLIED  TO 
THE  HALF-PLANE  PROBLEM 

In  this  chapter,  the  problem  of  diffraction  of  a  plane  wave  by  a 
perfectly  conducting  half-plane  is  solved  analytically  by  the  current 
source-function  (CSF)  technique.   This  problem  is  chosen  because  it  may 
be  solved  exactly.   It  serves  as  a  good  example  to  illustrate  the  solu- 
tion procedures  required  in  the  CSF  technique.   The  harmonic  problem  with 

-iwt   .J     .      .       • J    J 
e     time  dependence  is  considered. 

3. 1  Maxwell's  Equations  and  the  Current  Source-Function  Technique 

The  solution  of  electromagnetic  field  problems  is  based  on  Maxwell's 
equations.   Assuming  that  any  conducting  inhomogeneities  in  a  region  have 
been  replaced  with  the  induced  electric  current  J^   acting  in  a  homogeneous 
medium  with  constitutive  parameters  e   and  y,  Maxwell's  equations  for  the 
electric  and  magnetic  fields  E^  and  H  produced  by  these  currents  are 

VxH  =  Ve  +  J  (1.1) 

VxE  =  -Z  H  (1.2) 

V-E  =  p/e  (1.3) 

V-H  =  0  (1.4) 

2 
where  "y   =   -iwe ,  Z  =  -iwu,  Zy     =  -k  ,  and  p  is  the  electric  charge  den- 
sity which  is  related  to  the  current  by 

V'J  =  iup.  (1.5) 
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The  CSF  technique  arises  from  a  direct  relationship  between  the  fields 
and  the  sources.   The  curl  of  (1.2)  is 

VxVxE  =  -  Z  Vx  H  =  -  zC^E  +  J)  (1.6) 


or 


VV-E  -  V^E  =  k^E  -  Z  J.  (1.7) 


The  divergence  of  (1.1)  is 


V-VxH  =  0  =  '^  V-E  +  V-J  (1.8) 

or  V-E  =  -  ^  V«J.  (1.9) 

-  V    ~ 

Using  this  in  (1.7)  gives 

V^E  +  k^E  =  -  ^  {VV-J  +  k^J}E  -  ^  U.  (1.10) 

where  U  is  the  vector  current  source-function.   Solving  for  the  electric 
field  E   due  to  the  current  J_  yields 

ikR 


where  R  =  |r-r'|  is  the  source-point  to  observation-point  distance.   A 
discussion  of  this  result  for  three  dimensions  is  given  in  Chapter  7.   The 
present  discussion  is  limited  to  the  one-dimensional  case. 

3. 2  The  E-  and  H-polarization  Current  Source-Functions 

The  geometry  for  the  E-  and  H-polarization  half-plane  problems  is 
given  in  Figure  2.1.   For  the  E-polarization,  the  current  flows  in  the 
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y-direction  only.   The  expression  for  J  can  be  written  as 


Jg  =  Ig(z)l^(z)  6  (x)   y 


(2.1) 


where  1   is  the  unit  step  function  and  6  is  the  Dirac  delta  function.   The 
current  source-function  becomes 


U^  =  VV.J^  +  k^J^  =  k^J^ 


(2.2) 


because  J   is  divergence-free.   For  the  H-polarization,  the  current  flows 
in  the  z-direction  only.   The  current  J^  can  be  expressed  as 


J^  =   Ij^(z)l_|_(z)  6  (x)  z 


(2.3) 


and  the  current  source-function  for  this  case  becomes 


^H  =  ^^--^H  -^  ^  ^H  = 


^(V+)^^(-)  ^+^(-> 


^+k2 


dz 


(1^1+)  - 


(2.4) 


For  a  proper  interpretation,  these  derivatives  should  be  performed  using 
Schwartz  distribution  theory.   The  reader  is  referred  to  Section  6.2   for 
a  discussion  of  Schwartz  distribution  theory. 

Substituting  (2.2)  in  (1.11)  yields  the  expression  for  the  E- 
polarization  scattered  field.   After  using  the  fact  that 


..   /2  ^  2  ^     2 

^         —  dn  =  iTTH?:^  (k  /x  +  z  ) , 


/2  ,   2  ,   2 
vx     +  n  +  z 


0 


(2.5) 
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the  expression  becomes 


where 


u^(z')  H^-'-^k  J^   +  (z-z')^  )dz'  (2.6) 


The  total  field  E^  is  equal  to  the  sum  of  the  incident  and  scattered  fields, 

t    i    s 
or  E^  =  E^  +  E^  .   On  the  half-plane,  the  tangential  component  of  the  total 

electric  field  must  be  zero.   Applying  this  boundary  condition  gives  the 

integral  equation  for  u„(z'). 


0 


,  ,.  „(1)/,  I    ilxj  I    ^k  „i,   „    \  _  ^k  ^-ikz  cose   ^  .  r,  t-^    a\ 
u_(z')  H^  '(kz-z'  )dz'  =  ■=—  E  (x=0,  z)  =  ^—  e         ,  z  >  0,  (2.8) 
E      0  Zq  y  Zq 


where  6  is  the  angle  of  incidence  defined  in  Figure  2.1(a).   If  Ug(z')  is 
found,  then  the  current  I„(z')  can  be  found  from  (2.7).   In  this  case,  the 
CSF  formulation  is  only  trivially  different  from  the  usual  formulation. 

For  the  H-polarization,  however,  the  CSF  formulation  differs  greatly 
from  the  customary  integral  equations.  Substituting  (2.4)  in  (1.11),  the 
expression  for  the  scattered  electric  field  becomes 


y  


-    ^  4k 


u„(z')  vS}^  iX   /c^  +  (z-z')^  )dz'  (2.9) 
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where 


^^^H    2 
u^ 1  +  k^Ijj.  (2.10) 

dz' 


The  integrals  in  (2.9)  must  be  taken  as  finite  part  integrals.   The  inte- 
gral equation  for  u  (z')  is  obtained  by  applying  the  boundary  condition 

H 

that  the  tangential  electric  field  must  be  zero  on  the  half-plane.   The 
integral  equation  becomes 


Fp 


/  »N  T,(l)/i  I    iKj  t   ^k  „i  ,  ^   .    4k       -ikz  cos9 
u„(z')  H^  '(k  z-z'  )dz'  =  ^-  E^  (x=0,  z)  =  :;—  sine  e         , 


^  H-  ^  "0   --    --    Zq   z  ^    ♦   '    Zq 


z  >  0,     (2.11) 


where  6  is  the  angle  of  incidence  defined  in  Figure  2.1(b).   If  u  (z')  is 
found  from  this  integral  equation,  then  the  current  It,(z')  niay  be  found 
from  (2.10).   The  integral  equations  (2.8)  and  (2.11)  for  u  and  u^  are 
remarkably  similar  in  form.   The  main  difference  is  that  (2.8)  is  an 
ordinary  integral  equation  while  (2.11)  is  a  finite  part  integral  equation. 

3.3  The  Solution  of  the  Integral  Equations  for  u(z) 

In  this  section,  the  integral  equations  (2.8)  and  (2.11)  are  solved 

for  u„  and  u„,  respectively.   For  the  finite  part  equation  (2.11),  one  or 
E       n 

more  solutions  of  the  homogeneous  equation 


Fp 


f 


,(1) 


w(z')  Hj-'''(k|z-z'|)dz'  =0,     z  >  0,  (3.1) 


may  be  added  to  the  solution  of  the  ordinary  integral  equation  to  obtain 
another  solution.   The  number  of  solutions  that  may  be  added  is  related  to 


33 


the  edge  condition  on  the  current  source-function.   The  homogeneous  inte- 
gral equation  (3.1)  is  solved  by  three  related  methods.   These  are  (1) 
the  Wiener-Hopf  technique,  (2)  an  application  of  the  method  of  Belward 
(1972) ,  and  (3)  the  differentiation  of  a  (locally  integrable)  solution  to 
the  ordinary  Integral  equation. 

Both  the  integral  equation  for  the  E-polarization  and  the  ordinary 
part  of  the  integral  equation  for  the  H-polarization  may  be  written  as 


f(z')  H^^^(k|z-z'|)dz'  = 


0 


4k  -ikz  cosf 
K—  e 

^0 


z  >  0, 


(3.2) 


where  k  =  1  for  the  E-polarization  and  k  =  sinO  for  the  H-polarization. 
The  solution  of  this  integral  equation  has  been  found  in  several  different 
ways.   Magnus  (1941),  for  example,  solves  it  using  series  of  Bessel  func- 
tions.  Copson  (1946)  and  Noble  (1958,  p.  228)  use  the  Wiener-Hopf  tech- 
nique.  It  has  also  been  solved  using  the  Kontorovich-Lebedev  transform 
by  Lebedev  et  al.  (1966,  pp.  389-390).   The  solution  is 


f(z)    =   l^(z)   f^     ^^^^ 


0 


/^ 


i   sin(e/2)    e 


ikz 


/2 


+  sin6   e 


-ikz   cosi 


/kz(l+cose) 

.    2 

It    , 

e        dt 


/kz(l+cos9) 


(3.3a) 


iTr/4 
,     ,    .    Kk  4e  9      ikz   d 

=   1,  (z) tan^  e  -j- 

+  Z_         /—  z  dz 

0        /tt 


-ikz(l+cos6) 


.    2 
e^'   dt 


,    ,   ,    2Kk        iTi/4      .    e 
1    (z)    -= e  sin-:r 


,      (3.3b) 
/•kz(l+cos6) 


.    „(1)/,     X     .     AT  9      "ikz    cos6 

X  Hi      (kz)    +   v2   cosy  e 

2  ^ 


Hi^^\t)dt 


0 


(3.3c) 
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,  ,  ,  Kk^  4e^'^^^sin(e/2)   ikz  d^   -ikz(l+cos0)  ,^  ^^, 

=  1  (z) ^^ e    — r  e    ^      ' .  (3.3d) 

0    /2k  dz^ 

In  (3.3d),  the  operator  d^/dz^  is  the  semiderivative  operator  of  Oldham  and 
Spanier  (1974,  pp.  115-131).   H^  ^ (t)  is  the  Hankel  function  of  the  first 

2 

kind  and  order  \. 


The  function  f(z)  has  edge  behavior 


"2  as  z  ^-  0.  (3.4) 


Since  u„,  as  given  by  (2.7),  is  allowed  to  have  this  same  edge  behavior. 


the  solution  for  u   is 
hi 


Ug(z)  =  f(z) 


(3.5) 

K  =  1 


From  (3.5)  of  Chapter  2,  the  current  source-function  for  the  H-polarization, 

given  by  (2.10),  must  satisfy  the  edge  condition  u=0(  z  ^  )  as  z->0. 

rl 

This  means  that  the  function  f(z)  of  (3.3)  alone  does  not  have  to  be  the 

_3. 

total  solution  of  (2.11).   Solutions  of  (3.1)  which  behave  as  z  ^  as  z  ->■  0 
may  be  added  to  f(z)  without  violating  any  of  the  conditions  of  the  pro- 
blem.  The  solutions  of  the  homogeneous  finite  part  integral  equation  are 
found  in  each  of  the  next  three  sections  by  different  methods. 

3.3.1   Solution  of  the  Homogeneous  Finite  Part  Integral  Equation  by  the 
Wiener-Hopf  Technique 
The  Fourier  transform  pair  that  will  be  used  here  is 


F(a)  =  ^- 

/Zn" 


f(z)  e'-^'^dz,  (3.6a) 
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f(z)  = 


/ZtT  ■' 


F(a)  e    da. 


(3.6b) 


When  f(z)  or  F(a)  are  pseudofunctions  these  transforms  must  be  defined 
either  in  the  sense  of  distributions  or  as  finite  part  integrals.   The 
theory  and  calculation  of  pseudof unction  transforms,  along  with  a  large 
table  of  transform  pairs,  is  given  by  Lavoine  (1963).   For  a  general  des- 
cription of  the  Wiener -Hopf  technique,  the  reader  is  referred  to  Mittra 
and  Lee  (1971,  pp.  73-84). 

The  homogeneous  finite  part  integral  equation  (3.1)  may  be  rewritten 
as 


,(1) 


Pf  w_|_(z')    Hq   ^(k|z-z' |)dz'    =  b_(z),        -<x><z<a> 


(3.7) 


where 


Pf  w^(z')  = 


w(z')     z'  >  0 
0        z'  <  0 


(3.8) 


and 


b  (z)  = 


0 
b(z)  = 


z  >  0 


,(1) 


Pfw_|_  Hq  ^(k|z-z' |)dz'    z  <  0. 


(3.9) 


Taking  the  Fourier  transform  of  (3.7)  yields 


/ZtT  W_|^(oi)G(a)    =   B_(a), 


T_   <   Ima   <   T    , 


(3.10) 


where 


W    (a)    =  Fp 


w(z)    e        dz. 


(3.11) 
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G(a)  =   ^ 


/ZtT  J 


„(1),,  I  I,   iaz     fl  1  . 

h;^  '  (k  z  )  e   dz  =/- ,  (3.12) 

vk  -  a 


and 


B  (a)  =   ^ 


b(z)  e'-^'^dz.  (3.13) 


Equation  (3.10)  holds  in  the  strip  t_ <  Ima  < t   where  the  regions  of  re- 
gularity of  W  ,  G(a),  and  B_  overlap.   Factorizing  /2Tr  G(a)  into  G  (a)  and 
G  (a)  gives 


2TrG(a)  =  G_^(a)  G_(a)  =  -^^ -^   .  (3.14) 

/k+a  /k-a 


Equation  (3.10)  become 

B_(a) 
W_^(a)  G_j_(a)  =  ^-^,     T_<Ima<T^.  (3.15) 

Since  the  left-hand  side  is  regular  in  the  lower  half  plane  Ima  < i   and 

the  right-hand  side  is  regular  in  the  upper  half  plane  Ima>T_,  then  by 

analytic  continuation,  both  sides  must  equal  the  same  entire  function  P(a). 

Thus, 

B_(a) 
W^(a)  G^(a)  =  ^  ,  ,  =  P(a),      for  all  a.  (3.16) 

+        +  Kj     \0.) 

To  determine  the  nature  of  P(a),  consider  the  asymptotic  form  of  the  above 
equation  and  look  at  the  asymptotic  representations  of  W  and  G  .   The 
asymptotic  form  of  W  (a)  is  related  to  the  edge  behavior  of  w(z),  which  is 
required  to  be 


37 


_  3. 

w(z)  =  0(  z  M  as   z  ^  0+.  (3.17) 


Using  a  generalization  of  the  Abelian  initial  value  theorem,  it  is  found 
that 

W  (a)  ~  (-ia)^,    |a|  ->  «=  with  Ima  >  0. 

_i 
Since  G_^(a)    ~    (a)  ^,    \a\    ->  °°,  it  follows  that  P(a)  =  Vl^(a)    G_|^(a)  ~  C, 

|a|  -»-  °°,  where  C  is  a  constant. 

The  solution  for  W  (a)  becomes 

W_|_(a)  =  C  >'''k+^  /  /2.  (3.18) 

Taking  the  generalized  inverse  transform  gives  the  required  homogeneous 
solution,  which  is 


w(z)  =  — - 


/k+a  e    da  = 


ikz 


2  /IT 


^  e  "-"^da.  (3.19) 


The  branch  cut  for  ^a  will  be  taken  along  the  negative  imaginary  axis  in 
the  a-plane.  For  z  <  0,  the  path  of  integration  must  be  closed  in  the 
upper  half  of  the  a-plane  and  for  z  >  0  it  must  be  closed  in  the  lower 
half.  These  paths  are  shown  in  Figures  3.1(a)  and  3.1(b),  respectively. 
For  z  <  0,  the  integral  in  (3.19)  is  identically  zero,  as  expected.  For 
z  >  0,  the  path  of  integration  may  be  deformed  to  enclose  the  branch  cut 
as  shown  in  Figure  3.1(c).   The  integral  in  (3.19)  becomes 


/-     -iaz,     „.  -Itt/A 
Va   e  da  =  -zie 


/^e"''^d6  = 


P^+P^  0 


=  -2ie"^^/^(|)/z^  (3.20) 
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Rea 


Reu 


(a) 


Ima 


r^ 


(b) 


Rea 


(c) 


Figure  3.1.   Integration  Path  for  (a)  z  <  0,  and  (b)  z  >  0;  (c)  Deformed 
Path  for  z  >  0. 
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where  T   is  the  gamma  function.   The  expression  for  w(z)  then  becomes 

w(z)  =  -  y  e^'^/^Pf  ^  l_^(z)  (3.21) 

where  C  is  a  constant.   This  is  the  required  homogeneous  solution  of  the 
finite  part  integral  equation.   Note  that  it  has  the  required  edge  behavior. 
This  same  result  may  also  be  obtained  by  using  the  fact  that  multipli- 
cation by  a  in  the  transform  domain  is  the  same  as  differentiation  with 
respect  to  z  in  the  spatial  domain.   Thus, 


Fp        va   e  da  = 


a       -laz ,  .    d 

—  e          da  =  1  -3— 

/—  dz 

/a 


(■      -laz 

e ,      _ 

da   = 


/a 
=   2v/7  e"^"^  ^   (z-*r  (z))    =  -/^  ^^'^  Pf  (z-*1    (z))    (3.22) 

dz      ^  T  '  "r 


and 


„(,)    =  _  I  3i(kz+Tr/4)p^   z-^l^(z)  (3.23) 


as  before. 


3.3.2   The  Solution  of  the  Homogeneous  Finite  Part  Integral  Equation  from 
Belward's  Results 
Belward  (1972,  pp.  908-911)  finds  the  solutions  of  the  homogeneous 
integral  equation 

G^(t)  KQ(|z-t|)dt  =0,      z  >  0,  (3.24) 

0 

in  a  space  of  generalized  functions,  where  K„(t)  is  the  MacDonald  (modified 
Bessel)  function.   He  uses  the  term  "generalized  function"  in  the  sense 
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defined  by  Jones  (1966),  i.e.,  that  "a  generalized  function  is  an  equiva- 
lence class  of  regular  sequences."  This  definition  may  be  shown  to  be 
equivalent  to  the  definition  of  a  distribution  as  a  continuous  linear 
functional  [see  Antosik,  Mukusinski,  and  Sikorski  (1973,  p.  235)].   He 
finds 

,n  -t 

G„(t)  =  (  a^-^  +  •••  +  a.  )  V  .      t  >  0,  (3.25) 

H        n  ^^n         0   ^2 

(1)       2 
where  n  and  the  a.  are  arbitrary.   Since  H_   (x)  =  t—  K_(-ix),  it  could  be 

J  0  ITT   U 

argued  that  the  solution  of  (3.1)  would  be  obtained  if  "t"  in  (3.25)  were 

replaced  by  -ikz.   Although  it  is  not  clear  whether  this  procedure  can  be 

justified  mathematically,  it  gives  the  same  result  as  was  obtained  with  the 

Wiener-Hopf  technique.   Application  of  the  edge  condition  gives  a  =  0  for 

j  >  0.   The  solution  becomes 

ikz 

w(z)  =  C 3,      z  >  0,  (3.26) 

(kz)2 

where  C  is  a  constant. 

3.3.3  The  Solution  of  the  Homogeneous  Finite  Part  Integral  Equation  by 
Differentiation 


Consider  the  integral  equation 


0 


f(z')  H^^\k|z-z'|)dz'  =  1^  e  ^^^%     z  >  0,       (3.27) 


where  -1  j<  a  £  1.   The  solution  of  this  integral  equation  is  given  by  (3.3) 
except  with  cosS  replaced  by  a.   Applying  the  operator  L  =  ^r  +  ik^a  to  both 
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sides  of  (3.27)  yields 


Fp 


Lf(z')  Hq  ''(klz-z'l)dz'  =0,     z  >  0,  (3.28) 


0 

so  that  the  solution  of  the  homogeneous  finite  part  integral  equation  is 

w(z)    =    (  -^+  ika   )    f(z) 
dz 

3      iiT/4    jz Ikz 

=  _  KlL_e ^_A_a_e ^  ^  z   >  0.  (3.29) 

Z      A  (kz)^ 

For  any  a  ^  1,  this  procedure  yields  the  same  solution  as  before.   The  ex- 
pression for  w(z)  for  the  special  case  a  =  0  was  developed  in  Section  2.4. 

3.4   The  Consistency  Condition 

Redefining  w(z),  the  homogeneous  solution  of  the  finite  part  integral 
equation,  to  be  the  value  given  by  (3.29)  for  a  =  0  and  k  =  1  gives 

3   iTT/4     ikz 

w(z)  =  -  ^^— ^ Pf  -^ tI.Cz).  (^-1) 

Zq  /^      (kz)2 

The  solution  of  the  finite  part  integral  equation  (2.11)  for  u^(z)  becomes 

u„(z)  =  sine  v(z)  +  A  w(z)  (4.2) 

H. 

where  A  is  a  constant  and  v(z)  =  f(z)/K.   f(z)  is  given  by  (3.3). 

The  relation  between  the  current  source-function  u  (z)  and  the  current 

I„(z)  is,  from  (2.10), 
n 

^^^H     2 

—2^+  k^Ij^  =  Uj^(z),  z  >  0.  (4.3) 

dz 
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This  is  an  inhomogeneous  second  order  differential  equation  for  I  ,  the 

2   2    2 
half-plane  current.   The  inverse  of  the  operator  £  =  (  d  /dz  +  k   )  can 

be  represented  as  an  integral  operator  with  a  Green's  function  kernel. 
This  Green's  function  g(z,z')  is  a  solution  of  the  inhomogeneous  differ- 
ential equation 

j!*g  =  6(z-z')  (4.4) 

subject  to  certain  boundary  conditions  where  X   is  the  adjoint  of  £. 

The  adjoint  boundary  conditions  are  found  by  determining  boundary 
conditions  such  that 

an^,  i>}  =  <n^,  s:*i>)  (4.5) 

oo 

2        2  2 

where  <a,g>    is   shorthand   for   /agdz   and  £   =    (d   /dz     +  k   ).      The  +  sub- 

—  OO 

script  denotes  that  n  is  multiplied  by  the  unit  step  function.   In  (4.5) 

n  takes  the  place  of  I  and  ^i   is  the  function  for  which  the  adjoint  bound- 

H 

i 

ary  conditions  are  to  be  found.   The  fact  that  the  current  I   =  0(  z^  ) 

1 
as  z  ->-  0  for  the  H-polarization  gives  ri(0)  =0  and  n  =  0(  z^  )  as  z  ->-  0. 

Clearly,  £n,  is  allowed  to  be  a  pseudofunction  because 

__3 

£n  =  0(  z  2  )    as   z  ->  0+.  (4.6) 

For  arbitrary  \ij,    this  means  that  <£n,  ,tj^>  must  be  interpreted  as  the  finite 
part  integral 


f    '2 


Fp 


0 


(  ^  +  k^n  )  i^(z)dz.  (4.7) 

dz 


Setting  the  lower  limit  to  e  and  integrating  by  parts  yields 
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(  ^+  k^n  )  i(^(z)dz  =  ^  ij;(z) 
,  /  dz 

dz 


-  n(z) 


dz 


+ 


n(z)  (  ^  +  k^i|.)dz. 

dz 


(4.8) 


Because  of  the  edge  condition  on  n» 


dn 
dz 


=  0(z  2)  as   z  ^  0+, 


the  finite  part  integral  becomes 

Fp 


0 


C£ti)    ijj(z)dz   =   lim 
e  ^-0 


dn 


(£n)    t|j(z)dz  +  ^  i|^(z) 


S^(^) 


-n(z) 


dz 


oo  oo 


+ 


0 


n(z)  £*i|>dz, 


0 


(4.9) 


In  order  for  (4.5)  to  hold,  the  boundary  terms  in  (4.9)  must  vanish. 
The  boundary  conditions  to  be  satisfied  are 


and 


ri(z)  ^  ->  0   as   z  ^  0, 
dz 


-T^   iIj(z)->0   as   z^°°, 
dz 


Ti(z)  -j^  ->-  0   as   z 
dz 


(4.10a) 


(4.10b) 


(4.10c) 


The  first  condition  is  always  satisfied  because  n(0)  =  0.   The  current 
asymptotically  behaves  like 

-ikz  cosf 


^H~  ^ 


as   z  ->■ 


After  limiting  6  to  be  in  the  range  90°  <  0  <  270°,  a  small  imaginary  part 
may  be  introduced  in  k  such  that  k  =  k,  +  ik„.   This  gives 
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dn        k„Z   COS6  .   ,         r.  r. 

T],   ~r-  ~   e   2  as   z  ^  0°  with  cos6  <  0. 

dz 


From  (4.10),  \p   and  dijj/dz  must  exhibit  the  exponential  form 


w,   -7—  ~   e  as   z  ^  <» 

dz 


with  ?  >  k  cosO  in  order  for  the  boundary  terms  to  vanish.   It  turns  out 
that  ^  =  k.„  so  that  this  condition  is  always  satisfied.   This  is  the  only 
adjoint  boundary  condition  that  is  required.   A  condition  at  zero  is  not 
required  for  the  adjoint  problem.   The  above  restriction  on  6  is  necessary 
because  a  plane  wave  incident  field  in  a  lossy  medium  appears  to  become 
infinite  at  plus  infinity  for  angles  of  incidence  0  <  90°  [See  Figure  2.1], 
If  the  incident  plane  wave  itself  exhibits  this  behavior,  then  it  makes 
sense  that  the  current  does  also.   It  is  assumed  here  that  6  is  initially 
restricted  to  the  range  90°  <  6  <  270°  so  that  the  incident  field  and  the 
current  approach  zero  at  infinity.   0  is  extended  to  all  angles  of  inci- 
dence only  after  the  calculations  have  been  completed. 

The  solvability  of  the  second  order  differential  equation 

2   2    2 
(d  /dz  +  k  )y  =  f(z),  a  <  z  <  b,  such  that  certain  boundary  conditions 

are  satisfied  is  closely  related  to  the  existence  of  solutions  to  the 
homogeneous  system  and  to  the  adjoint  homogeneous  system.   In  the  case  of 
a  scatterer  of  finite  extent,  solutions  of  the  homogeneous  system  arise 
only  at  resonance,  i.e.,  when  the  physical  extent  of  the  scatterer  matches 
a  multiple  of  a  half  wavelength  of  the  incident  field.   For  the  semi- 
infinite  case,  the  homogeneous  system  has  no  nontrivial  solutions.   For 
non-singular  differential  equations,  it  may  be  shown  that  if  the  homogeneous 
system  has  only  the  trivial  (zero)  solution,  then  the  adjoint  homogeneous 
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system  has  only  the  trivial  (zero)  solution.   For  the  details,  the  reader 
is  referred  to  Stakgold  (1967,  Volume  I,  pp.  84-85).   For  problems  involv- 
ing pseudof unctions  and  the  finite  part,  this  is  no  longer  true.   The 
adjoint  homogeneous  system  usually  has  solutions  even  though  the  homoge- 
neous system  has  only  the  trivial  (zero)  solution. 

For  the  half-plane  problem,  the  homogeneous,  inhomogeneous,  and 
adjoint  homogeneous  systems  are 
The  homogeneous  system 

i:p  =  0    0<z<°°    p(0)=0    p^Oasz->-°°  (4.11a) 

The  inhomogeneous  system 

£n  =  f    0<z<<»    n(0)=0    T]  ^  0  as   z  ->  ^  (4.11b) 

The  adjoint  homogeneous  system 

Z*\li   =  0    0<z<«>  iJ;^Oasz-^°°  (4.11c) 

*         2   2    2 
where  <£  =  <£  =  (d  /dz   +  k  )  .   The  radiation  condition  must  also  be  satis- 
fied.  As  was  shown  previously,  the  adjoint  homogeneous  system  does  not 
have  a  boundary  condition  to  be  satisfied  at  z  =  0.   The  differential 
equation  of  (4.11a)  has  solutions  [e     ,  e     ]  or  [sin(kz),  cos(kz)], 
but  none  of  these  satisfy  the  boundary  conditions  so  (4.11a)  has  only  the 
trivial  solution  p  e  0.   The  adjoint  homogeneous  differential  equation  also 
has  the  above  solutions,  but  in  this  case  one  of  them  does  satisfy  the 
given  boundary  condition  (again  assuming  that  k  =  k  +  i  k^,  0  <  k   <<  1, 
and  that  6  is  restricted).   The  non-zero  solution  of  the  adjoint  homoge- 
neous system  (4.11c)  is 


+ikz 

\\)  =  e 
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The  following  theorem  is  similar  to  one  given  by  Stakgold  (1967,  Volume  I, 
p.  85). 

Theorem:   System  (4.11b)  has  no  solution  unless  the  consistency  condition 

00 

/  f(z)  i|^(z)d2  =  0  is  satisfied  for  every  ^(z)   which  is  a  solution  of  (4.11c), 

Proof:  £  is  a  second  order  differential  operator  and  hence  can  have  no 
more  than  two  non-zero  linearly  independent  homogeneous  solutions.   Only 
one  of  these  goes  to  zero  and  is  an  outgoing  wave  as  z  -*■  ».   These  are  the 
only  conditions  required  on  ^   by  (4.11c).   Multiplying  (4.11b)  by  <J;  and 
(4.11c)  by  r)»  subtracting,  and  integrating  from  0  to  «>  gives 


00 

* 


(Ur]  -   n£*i|>)dz  = 
0  0 


f(z)  ij;(z)dz.  (4.12) 


The  left  side  is  zero  by  applying  the  results  of  (4.10)  to  (4.9).   There- 
fore, 

00 

f 

f(z)  i()(z)dz  =  0  (4.13) 

0 

must  hold  for  every  i|;  that  satisfies  (4.11c).   Note  that  for  the  trivial 
solution  ^{z)   =   0,  the  consistency  condition  is  always  satisfied. 

The  constant  A  in  the  current  source-function  (4.2)  can  now  be  found. 
The  system 

S,l^   =  u^(z)     0  <  z  <  "     Ijj(O)  =0     ^h"*'°  asz->"   (4.14) 

is  exactly  of  the  form  of  (4.11b).   Here  the  current  source-function  u  (z) 
takes  the  place  of  f(z).   In  order  for  the  system  (4.14)  to  have  a  solution, 
the  consistency  condition  (4.13)  must  be  satisfied  with  u„  in  place  of  f. 


Substituting  (4.2)  in  (4.13),  the  consistency  condition  becomes 
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0  = 


u„(z)  4)  (z)dz  =  sin£ 

£1 


.  .   ikz,   ,  „ 
v(z)  e   dz  +  A 


w(z)  e^^^dz.    (4.15) 


Solving  for  A  obtains 


sinfc 


v(z)  e   dz 


A  =  - 


w(z)  e   dz 


(4.16) 


Therefore,  there  is  only  one  value  of  A  for  which  a  solution  for  I   exists, 

ilcz 
The  integrals  of  w(z)  and  v(z)  with  respect  to  e    ,  where  w(z)  and  f(z)  = 

Kv(z)  are  given  by  (4.1)  and  (3.3),  respectively,  become 


v(z)  e   dz  = 


2ik 


ZQSin(0/2) 


(4.17) 


and 


Fp 


0 


,   ,   ikz^    2  /2  k^ 
w(z)  e   dz  =  — ^ 

^0 


(4.18) 


Substituting  these  in  (4.16)  and  simplifying  yields 

/2  cos(9/2) 


A  = 


ik 


(4.19) 


The  unique  solution  for  u  (z)  becomes 

n 


■  n   /  N  ^  /2  cos(e/2)   ,  . 
u^(z)  =  sine  v(z)  +  T^-^= w(z) 


(4.20) 
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This  is  the  required  result.   The  solution  for  I„  is  found  in  the  next 

H 

section. 


3.5   The  Current  in  Terms  of  the  Current  Source-Function 

The  solutions  for  u  and  u  ,  the  E-  and  H-polarization  current  source- 

h         ti 

functions,  are  given  by  (3.5)  and  (4.20),  respectively.   The  relations 
between  u^  and  I   and  u  and  I   are  given  by 

Ie  =  ;^u^(z)  (5.1) 

k 


and 


'^^^H     2 

-^  +^   \  =   Uj^(z).  (5.2) 

dz 


The  first  expression  is  trivial.   In  the  second,  the  solution  for  I  may 

n 

be  found  using  Green's  function  techniques.   The  solution  is 


I^(z) 


u^(z')  g(z,z')dz'  (5.3) 


0 


where  g(z,z')  is  the  Green's  function  for  the  operator  in  (5.2).   This 
Green's  function  may  be  found  by  solving  the  inhomogeneous  distributional 
second  order  differential  equation 

£  g  =  6(z-z'),     0  <  z,z'  <  °°,   g  outgoing  as  z'  -^  <»,    (5.4) 

subject  to  the  adjoint  boundary  conditions.  No  boundary  condition  is  re- 
quired at  z '  =0  and  only  a  radiation  type  boundary  condition  is  required 
at  infinity.   The  constraints  on  the  Green's  function  are 
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(1)   g(z,z')  continuous  at  z'  =  z. 


(2) 


dg 
dz' 


z'=z+ 


dg 
dz' 


=  1, 


(5.5) 


z  =z- 


and       (3)   g(z,z')  is  an  outgoing  wave  near  infinity. 
For  z'  5^  z,  (5.4)  becomes 

£*g  =  0. 

ikz '    -ikz' 
This  has  solutions  e     ,  e     ,  sin(k.z'),  or  cos(k.z').   Although  a  bound- 
ary condition  at  z'=0  is  not  required,  one  may  be  imposed.   If  the  condition 
g(z,  z'=0)  =  0  is  imposed  on  g,  then 


g(z,z') 


A(z)  sin(kz')     z  >  z' 


„ ,  ,   ikz '  , 

B(z)  e  z  <  z' 


(5.7) 


Enforcing  the  conditions  (5.5)  gives 


,    ,,     1      ,      ik  z-z'     ik(z+z'), 
g(z,z')  =  ^T^  (  e   '     '  -e       ') 


(5.8) 


The  current  I   is  found  from  (5.3).   It  is  interesting  to  note  that  since 
rl 

00    ikz ' 
f  u^   e  dz '  =  0  by  the  consistency  condition  (4.15),  the  current  may  also 

be  written  as 


1^   =  I  Uy(z')  E(z-z')dz' 


(5.9) 


1   ik  z 
where  E(z)  =  xtj-  e   '  ' .   This  is  just  the  "fundamental  solution"  for  the 

operator  X  as  is  used  in  the  theory  of  distributions.   The  current  I„  is 

just  the  convolution  of  u  with  E.   Thus,  the  integral  in  (5.3)  has  been 

reduced  to  the  convolution  integral  in  (5.9). 
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Substituting  (4.20)  for  u„  in  (5.9)  obtains 

n 


Ih(^) 


smt 
2ik 


,  ,-   iklz-z' L  ,  ,  /2  cos(e/2) 
^(^  )  ^        ^^  +   ik(2ik) 


w(z  )  e   '     ' dz 


0 


(5.10) 


The  integrals  in  this  expression  are  found  to  be 

-ikz 


,    ,,       ik  z-z'     ,    ,        4ke 
v(z    )    e      '  'dz      = 


i7T/4 


0 


z^/iT 


e   ^"^    [f^M    -   l^(z)F2(2kz)) 


sin(6/2) 


2       1     /    X      -ikz   cos9„    ,,     /-,,         Q.. 
+  ^— 7-  1,  (z)    e  F„(kz(l+cose)) 

smo     +  /. 


(5.11) 


and 


Fp 


z   )    e      '  'dz 


.,  2   -iir/A  ., 

4k  e yr-     -ikz 

z^/iT 


(F2(-)    -   l^(z)F2(2kz))  (5.12) 


where 


F2(x)   = 


/x      2 

it    ,  e 

e        dt   =  - 


iTT/4 


AT  -   e^""  U(|,   I,    -ix) 


0 


=   •x'  M(|,|   ,    ix) 


(5.13) 


U  and  M  are  Kuminer's    functions   and   F    (<=o)    =   /n"  e'^        /2,      Substituting    (5.11) 


and    (5.12)    in    (5.10)   and   simplifying  gives 
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/kz(l+cose) 


I,(z) 


4e 


-iiT/4 


z.AT     -^ 


l^(z)    e 


-ikz   COS0 


it 


e        dt  (A/m)/(V/in) 


0 


Jl      iTr/4,     ,    ,      -ikz   cosO 
—  e  1    (z)    e 

^0 


kz(l+cose) 


Hf^^t)dt 

2 


(5.14a) 


(5.14b) 


L7r/4 


2    /(2k)    e"^^""*          e    ,     ,    ,      ikz   d   2        -ikzd+cosO) 
^ cos-;^  l,(z)    e  r  e 


^0 


2  +' 


dz 


(5.14c) 


(1)  --   -^ 

where  H*"   (t)  is  the  Hankel  function  and  the  d  ^/dz  ^  operator  is  the 

semiintegral  operator  of  Oldham  and  Spanier  (1974,  pp.  115-131).   It  is 

important  to  note  that 


-ikz 


u„(z')  e'^'^^'dz'  =0,     z  <  0. 


(5.15) 


0 


The  integral  is  identically  zero  for  all  negative  z.   This  is  true  because 
of  the  consistency  condition  (4.15).   Thus, 


Ih(z)  = 


u^(z')  E(z-z')dz', 


—  <»  <  Z  <  <". 


(5.16) 


The  current  is  given  by  the  integral  for  all  values  of  z, 


3.6  Discussion  of  the  Results  and  Conclusions 

The  main  result  of  this  chapter  is  the  solution  for  the  current  I^(z) 
induced  on  a  perfectly  conducting  half-plane  due  to  an  incident  plane  wave. 
The  solution  to  the  integral  equation 

CO 

\         ,    ,.       (1)  ,,  \         1  I X  ,  1    ^^  .    r.      -ikz  cos9       ^  _ 
Fp   u^(z')  Hq  '^(k|z-z'  |)dz'  =  —  sine  e         ,     z  >  0 

0  ° 
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is  found  by  adding  the  solution  of  the  ordinary  integral  equation  to  a 
solution  of  the  homogeneous  finite  part  integral  equation  such  that  the 
edge  condition  is  satisfied.   The  success  of  this  procedure  requires  that 
the  form  of  the  solution  of  the  homogeneous  finite  part  integral  equation 
be  unique  to  within  an  arbitrary  multiplicative  constant.   All  three  ways 

of  obtaining  the  homogeneous  solution  strongly  suggest  that  this  is  true 

ikz     — 
since  they  all  exhibit  z-dependence  of  the  form  Pf  1  (z)e    /(kz)^.   One 

part  of  a  source-free  solution  to  the  wave  equation  (described  in  Section 
2.2)  also  has  z-dependence  of  this  form. 

The  constant  multiplying  the  homogeneous  solution  is  found  by  enforc- 
ing the  consistency  condition 

(u^(z),  e^''^)  =  0. 

2   2    2 
The  current  is  found  by  inverting  the  d  /dz   +  k  operator  to  obtain 

I„  =  u„*E,        all  z. 

£1       £1 

The  fundamental  solution  E  may  be  used  instead  of  a  Green's  function  be- 
cause of  the  consistency  condition.  The  result  for  I  ,  given  by  (5.14), 
is  identical  with  the  results  obtained  by  other  methods. 

The  current  source-function  technique  has  several  possible  advantages 
over  the  Hallen  or  Pocklington  integral  equation  techniques  for  numerical 
solution.   The  CSF  technique  retains  the  simplicity  of  the  kernel  of  the 
Hallen-type  integral  equation  and  does  not  require  a  differentiation  oper- 
ation in  evaluating  the  matrix  elements  in  the  moment  method  as  the 
Pocklington  approach  does.   Furthermore,  the  forcing  function  of  the  CSF 
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integral  equation  is  just  the  incident  field.   No  operation  on  the  inci- 
dent field  is  required  as  is  the  case  with  the  Hallen  formulation.   Since 
the  integral  operator  is  simplified,  the  behavior  of  the  current  source- 
function  is  expected  to  be  somewhat  similar  to  that  of  the  incident  field. 
Of  course,  the  CSF  technique  requires  an  additional  operation  to  find  the 
current,  but  this  is  a  straight-forward  integration  and  may  be  separated 
from  the  considerations  involved  in  the  moment  method.   Local  inaccuracies 
in  the  moment  method  solution  for  the  current  source-function  should  not 
drastically  effect  the  overall  accuracy  of  the  current  since  the  induced 
current  is  obtained  by  integrating  over  the  (approximately  represented) 
source- function. 
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4.   THE  NUMERICAL  SOLUTION  OF  THE  HALF-PLANE  PROBLEM:   E-POLARIZATION 

The  closed  form  solution  of  the  half-plane  problem  with  E-polarization 
plane  wave  incidence  is  discussed  in  Chapter  3.   The  present  chapter  is 
devoted  to  the  moment  method  numerical  solution  of  the  same  problem.   The 
method  of  moments  discretizes  an  integral  equation  into  a  matrix  equation. 
This  procedure  has  been  widely  discussed  by  Harrington  (1968)  and  others 
and  so  is  not  discussed  here  in  an  introductory  sense.   The  transform 
domain  numerical  solution  of  the  half-plane  problem  is  discussed  by  Li 
(1972). 

The  results  obtained  here  are  used  later  to  solve  for  the  H- 
polarization  current  by  the  current  source-function  technique.   The  half- 
plane  problem  is  chosen  primarily  because  its  exact  solution  is  known  and 
can  be  used  as  a  standard  to  judge  the  accuracy  of  the  numerical  procedures 
described  in  this  chapter.   The  computer  programs  used  in  this  work  appear 
in  Appendix  D. 

4.1  The  Integral  Equation  Formulation  for  the  E-polarization 

The  geometry  for  the  E-polarization  half-plane  problem  with  plane  wave 
incidence  is  given  in  Figure  2.1.  The  integral  equation  for  the  current  is 
derived  in  Chapter  3  and  is  given  by  (2.7)  and  (2.8)  of  that  chapter.   It  is 


I^(z')  H^l^k|z-z'|)dz'  =^e-i^^  -^^     z>0,   (1.1) 


where  I„(z')  is  the  y-directed  E-polarization  current.   From  energy  consid- 
E 

erations  for  this  structure  and  polarization 
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_i 
|l„(z)|  =  0(  z  2  )    as     z  -^  0.  (1.2) 

III 


This  edge  condition  on  the  current  is  used  to  construct  an  appropriate  ex- 
pansion function  set  for  the  method  of  moments. 


4.1.1  The  Physical  Optics  Current,  I 


PO 


A  moment  method  numerical  solution  may  be  obtained  only  if  the  problem 
is  reformulated  to  make  the  range  of  integration  in  (1.1)  finite.   Far  from 
the  edge,  the  current  on  the  conducting  half-plane  is  about  the  same  as  it 
would  be  if  the  conducting  plane  extended  to  infinity  in  all  directions. 
Applying  this  concept  allows  us  to  say  that  the  current  1^(2)  approaches  a 
known  function,  the  so-called  physical  optics  current  I   (z) ,  as  z  becomes 
large. 

The  geometry  for  solving  for  the  physical  optics  current  IpQ(z)  for 

the  half-plane  problem  is  just  that  of  Figure  2.1(a)  except  that  the  metal 

is  extended  to  infinity  in  all  directions.   For  an  incident  plane  wave 

„i    -ikx  sin9   -ikz  cos0  "  ,,  ^v 

^  =  e         e         y,  (1.3) 

the  total  tangential  magnetic  field  is 

H*^  =  H^  +  H^  =  -(2/Z^)sine  cos(kx  sinO)  e~^  ^  '^°^    .       (1.4) 
z    z    z        0 

The  physical  optics  current  is  the  difference  in  the  tangential  magnetic 

field  above  (H„)  and  below  (H  )  the  metal  surface.   It  becomes 

r„t   ..t,    2   .  .   -ikz  cose  "  ,,    ^. 

IpQ  =  X  x[H2  -  H^]  =  Y~   si"Q  ^  y-  ^^-^^ 

The  physical  optics  current  for  the  E-polarization  is  seen  to  be  directed 
in  the  y  direction  with  magnitude  2sine/ZQ. 
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4.1.2   The  Integral  Equation  for  the  Difference  {l„  ~  ^-nn^ 

h     rU 

The  integral  equation  for  the  E-polarization  half-plane  current  is 

given  by  (1.1).   Adding  and  subtracting  terms  in  I  _  in  the  unknown  yields 


{Ig  -  IpoXz')  H^^\k|z-z'|)dz'  = 


4   -ikz  cosO   2  .  . 
^^0  ^0 


-ikz'cosQ  ,,(1).,  I    .  K  J  I      /I  t^ 
e  H_   (k|z-z  |)dz  .     (l.o) 


Transforming  variables  and  substituting  the  identity 


-ix  cose   (1)  .1       I  , 
e         H^   ( |kz  -  x| )dx  = 

0 


-ikz  cos6  j  2 


smt 


iy  cose   (1)  .  , 
e  -^      Hq   (y)dy 


kz 


(1.7) 


in  (1.6),  one  obtains  the  integral  equation 


^^E-  ^PO^  H^^)(k|z-z'|)dz'  = 


kZ 


2    .  „   -ikz  cose 
sine  e 


0 


^iy  cose  Ha)(y),y^  ^,0^   (1^8) 


kz 


The  closed  form  solution  of  (1.8)  may  be  obtained  from  Equation  (3.3)  of 
Chapter  3  and  (1.5).   In  (1.8)  the  unknown  is  the  quantity  {Ig  -  ^pn-^  * 
This  difference  should  approach  zero  for  large  z',  making  it  possible  to 
truncate  the  integral  at  some  finite  distance  kL.   If  the  upper  limit  kL 
is  chosen  large  enough,  then 
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{Ig  -  IpQ}(t)  H^^^(|kz-t|)dt  - 

kL 

{Ig  -  IpQ}(t)  H|^  ^(|kz-t|)dt  =  RHS(kz),   z  >  0,    (1.9) 
0 

where  RHS  is  the  right-hand  side  of  (1.8). 

4.1.3  The  Choice  of  Expansion  Functions 

The  integral  equation  (1.9)  is  solved  numerically  by  the  method  of 
moments.   The  unknown,  {I   -  Ip^^lj  is  expanded  in  two  similar  basis  func- 
tion sets.   The  first  is  a  hybrid  expansion  function  set  based  on  edge 
condition  considerations.   The  second  is  an  all-pulse  expansion  function 
set  which  is  chosen  because  of  the  simplicity  of  matrix  element  evaluation. 
Point  matching  is  used  in  both  cases  starting  at  the  edge.   The  hybrid 
expansion  function  set  that  is  used  is  one  with  a  half-width  t  ^  expansion 
function  at  the  edge  and  with  full-width  pulse  expansion  functions  away 
from  the  edge.   This  expansion  is  shown  in  Figure  4.1(a).   The  use  of  a 
half-width  edge  subsection  was  suggested  by  Pearson  (1975).   This  allows 
the  match  points  to  be  uniformly  distributed.   The  all-pulse  expansion 
function  set  that  is  used  is  one  with  a  half-width  pulse  expansion  func- 
tion at  the  edge  and  with  full-width  pulse  expansion  functions  away  from 
the  edge.   This  expansion  is  shown  in  Figure  4.1(b).   It  is  of  interest 
to  observe  the  effect  that  such  a  crude  edge  expansion  function  has  on 
the  solution  away  from  the  edge. 

The  hybrid  basis  function  expansion  may  be  written  as 


(ig  -  ipoXt)  -  { 


x^t^  0<t<H 

(1.10a) 
x^       (2j-3)H  <  t  <  (2j-l)H,  2  <  j  <  200, 


Hybrid  Expansion:   Ie'Iro 
Edge  Behavior 


//^ 
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0       H       2H     3H      4H     5H 


397H  398H  399H 


<5 -testing 


(a) 


i      All- Pulse  Expansion:    I  -  j 


E        'PO 


•      •      • 


397H    398H  399H 

4 


►  kz 


<5- testing 


(b) 


Figure  4.1.   The  Expansion  Function  Sets, 
(b)  The  All-Pulse  Expansion. 


(a)  The  Hybrid  Expansion. 
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where  H  (=0.05)  is  the  subsection  half-width  and  the  x.'s  are  unknown  con- 

J 

stants.   "r"  is  used  because  the  hybrid  expansion  has  a  one  over  square 
r^oot  expansion  function  at  the  edge.   The  all-pulse  expansion  may  be  writ- 
ten as 


X 


{ig-  ipo>(t)H 


X. 

I.  J 


0  <  t  <  H 
(2j-3)H  <  t  <  (2j-l)H,  2  <  j  <  200, 


(1.10b) 


where  the  x.'s  are  unknown  constants.   "p"  is  used  because  the  all-pulse 
J 

expansion  is  composed  of  £ulse  functions.   Substituting  (1.10a)  in  (1.9), 
the  approximate  integral  equation  becomes 


H 


-h  .(1) 


N 


1 2  Hy-'dkz-thdt  +  y  x^ 

2=2      ^ 


,(2j-l)H 

HQ"''''(|kz-t|)dt  =  RHS(kz),  z  >  0,  (1.11) 
(2j-3)H 


where  kL  =  (2N-1)H  and  N  =  200.   The  corresponding  expression  for  the  all- 
pulse  basis  function  set  is  obtained  by  replacing  the  t  ^  under  the  inte- 
gral sign  by  unity  and  the  x.  by  x..   The  moment  method  solution  is 
obtained  by  requiring  Equation  (1.11)  to  hold  at  kz  =  2(i-l)H  for 
i  =  1,2,'-',N  (point  matching).   This  results  in  N  equations  in  N  unknowns 
which  may  be  written  in  matrix  form  as 


Ax  =  X. 


(1.12) 


for  the  hybrid  expansion  and  as 


aPxP 


(1.13) 


for  the  all-pulse  expansion.   A  and  A  are  almost-Toeplitz  matrices  of 


integrals  of  the  kernel  weighted  with  respect  to  the  basis  functions.   The 
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Toeplitz  matrix  is  a  matrix  with  all  of  the  elements  in  any  diagonal  equal. 
A  and  A  are 


A^  = 


^1   ^2 


^2    ^1 


r    t 
N    N-1 


'N-1 


and  A*^  = 


Pi   ^2 
?2        h 


Pn   ^N-1 


'N-1 


'  •      •  < 


(1.14) 


These  would  be  Toeplitz  matrices  except  for  the  fact  that  the  first  column 
is  different.   The  individual  matrix  elements  are 

H 


t  2  h^^^Id  -t|)dt. 


(1.15) 


0 


and 


Pj  = 


t .  = 
J 


,(1) 


H^"MD.-t|)dt, 


(1.16) 


0 

H 

-H 


H^^^lD.-t|)dt 


(1.17) 


where  H  is  the  subsection  half-width  and  D.  =  2(j-l)H  for  j  =  1,2,-",N. 
^  is  a  vector  of  the  right-hand  side  evaluated  at  these  points.   Matrix 
element  approximations  are  discussed  in  the  next  section.   The  evaluation 
of  the  right-hand  side  is  discussed  in  Section  4.3.   A  treatment  of  the 
almost-Toeplitz  matrix  is  given  in  Section  4.4.   Finally,  Section  4.5  dis- 
cusses the  results  of  the  calculations.   Complete  listings  of  the  computer 
programs  referred  to  in  the  following  are  given  in  Appendix  D. 
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4.2  Matrix  Element  Approximations 

Matrix  elements  must  be  calculated  as  accurately  as  possible  in  order 
to  have  the  moment  method  results  turn  out  reasonably  accurate.   This  sec- 
tion describes  the  method  of  calculating  the  matrix  elements.   Matrix 
element  approximations  for  pulse  expansion  functions  are  examined  in  the 
next  section  and  those  for  inverse  square  root  expansion  functions  are  de- 
tailed in  Section  4.2.2. 


4.2.1  Matrix  Element  Approximations  for  Pulse  Basis  Functions 

Matrix  elements  for  the  edge  pulse  expansion  function  may  be  written 
in  the  form 


H 


Pj  = 


H^^^|Dj-t|)dt, 


j  =  1,2,---,N, 


(2.1) 


0 


and  those  for  expansion  functions  away  from  the  edge  may  be  written  in  the 
form 


H 


t  .  = 
J 


H^^^|D^-t|)dt, 


j  =  1,2,.--,N, 


(2.2) 


-H 


where  N  is  the  number  of  subsections,  H  is  the  subsection  half-width,  and 
D.  =  2(j-l)H.   For  D  =  D   =0,  the  integrals  become 


H 


H 


H^-'"\t)dt   and   t^  = 


H^^^|t|)dt  =  2 


Hj^\t)dt. 


(2.3) 


0 


-H 


0 


These  matrix  elements  are  called  the  self  terms.  All  other  matrix  elements 
are  called  mutual  terms.  Integrals  like  (2.3)  may  be  approximated  in  terms 
of  Chebyshev  polynomial  series  by 
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Jo(t)dt  =  I     a^  ^2n+l^''/^^'     -8lx<8,      (2.4) 
n=0 


and 


YQ(t)dt  =  (2/^)  [y  +  Jin(x/2)] 


jQ(t)dt  -  I     b^  T2^+i(x/8),    (2.5) 
n=0 


0  <  X  <  8, 


where  y  =  0.57721  56649  ...  is  Euler's  constant.   The  coefficients  a   and 

n 

b   are  given  by  Luke  (1969,  Volume  II,  Table  27,  p.  334).   The  specific 
range  of  validity  of  these  equations  is  dictated  by  the  available  coeffi- 
cients.  The  use  of  a  Chebyshev  series  minimizes  the  maximum  error  over  the 

N 
interval  of  approximation.   That  is,  if  G(x)  =   )^   a  T  (x)  is  a  proper 


n=0 


n  n 


Chebyshev  approximation  to  f(x),  then 


max   I f (x)  -  G(x) 
-l<x<l 


will  be  minimized  over  the  set  of  all  polynomials  of  degree  N  or  less.   If 
a  sufficient  number  of  terms  are  included  in  (2.4)  and  (2.5),  these  inte- 
grals may  be  evaluated  to  any  desired  accuracy.   Various  self  term  approx- 
imations are  derived  and  compared  to  the  above  in  Appendix  B. 
For  D.  ^0,  the  mutual  terms  may  be  written  as 


H 


Hj^^Dj-t)dt  = 


f   (1) 
H^  ^t)dt 


(2.6) 


-H 


where  a  =  D.-H  and  b  =  D.+H.   The  mutual  terms  are  evaluated  by  using  either 
the  Chebyshev  series  in  (2.4)  and  (2.5)  or  the  Chebyshev  series 


,(1) 


H^^^t)dt  =  (^)   e 

0  ^TTX'' 


i(x+TT/4) 


I   c^T^(5/x),   x>5, 
n=0 


(2.7) 
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where  T   is  the  shifted  Chebyshev  polynomial  of  the  first  kind  given  by 

T  (x)  =  T  (2x-l) .   The  complex  coefficients  c   are  given  by  Luke  (1969, 
n       n  *^  n     '^      -^  ' 

Volume  II,  Table  27,  p.  335).   The  Chebyshev  series  of  (2.4),  (2.5),  and 
(2.7)  are  truncated  after  about  18  terms.   This  gives  full  double  pre- 
cision (15  digit)  accuracy.   The  mutual  terms  are  evaluated  using  either 
(2.4)  and  (2.5)  or  (2.7)  in  either 


H^^\t)dt  = 


H^^\t)dt  - 


f   (1) 

H^  ^t)dt 


(2.8) 


or 


H^^^t)dt  =  I  H^^^(t)dt  - 


H^"^^t)dt, 


(2.9) 


respectively.   Careful  study  of  the  results  indicates  that  for  b  =  a+0.1 
approximately  two  digits  of  accuracy  are  lost  in  taking  the  difference. 
Another  way  of  saying  this  is  that  for  b  =  a+0.1  the  first  two  digits  of 
each  of  the  integrals  on  the  right-hand  sides  of  (2.8)  and  (2.9)  are 
approximately  the  same.   This  allows  about  12  or  13  decimal  places  of 
accuracy  for  each  pulse  basis  function  mutual  term  matrix  element  computed 
in  this  way  in  double  precision.   Various  numerical  approximations  for  the 
mutual  terms  are  compared  in  Appendix  B. 


4.2.2   Matrix  Elements  Associated  with  the  Inverse  Square  Root  Basis 
Function 


Matrix  elements  associated  with  the  t   edge  expansion  function  may 
be  written  in  the  form 


r . 
J 


H 

t"^  H^-'-'*(|D.-tl)dt. 
0 


(2.10) 
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The  self  term  is  the  value  for  D  =  D  =0  and  the  mutual  terms  are  the 

values  for  D.  >  0. 
J 

The  self  term  takes  the  form 


H 


(2.11) 


This  integral  may  be  written  in  terms  of  series  of  Chebyshev  polynomials 


as 


0 


t  2  JQ(t)dt  =  /x  I     a^T^^ix), 
n=0 


0  £  X  £  1, 


(2.12) 


and 

X 


t  -^  YQ(t)dt  = 


-  [y  +  £n(x/2)] 


X 

t"2  jQ(t)dt  +  y^     I     V2n^''^' 
0  ^=° 

0  <  X  <  1. 


(2.13) 


The  coefficients  a  and  b   are  given  to  thirty  decimal  places  in  Appendix  C 
along  with  a  discussion  of  their  computation.   Various  numerical  approxi- 
mations to  this  self  term  are  given  in  Appendix  B. 

The  mutual  terms  for  the  edge  expansion  function  may  be  written  in  the 
form 


r . 

J 


H 

f  .-*  „(1) 

0   -  J 
0 


t  2  H;:"'(D.-t)dt. 


(2.14) 


,(1) 


Expanding  H_   (D.-t)  in  a  series  of  products  of  Bessel  and  Hankel  functions 
according  to  Neumann's  difference  theorem  for  Bessel  functions 


,(1) 


M) 


Hj'-^D-t)  =   I       H^'-''(D)Jj^(t),   |d|  >  |t|, 

k=_oo 


(2.15) 
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as  given  by  Olver  (1964,  p.  363)  and  integrating  with  respect  to  t  ^,  one 
obtains 


H 


,(1) 


■         -.  DO 

t"2  H^^^D-t)dt  =  I      Ej^HjJ'-^D)  Ji_i^  ^(H) 

K  U 


(2.16) 


where 


^k  =  ^ 


1   k  =  0 


2   k  >  0 


(2.17) 


and 


H 


Ji    (H)  =   t^  J  (t)dt 


(2.18) 


as  given  by  Luke  (1962,  p.  42).   This  same  result  may  also  be  obtained  by 
expanding  H„   (D-t)  in  a  Taylor  series.   For  a  particular  formulation,  H 
is  fixed  and  so  the  Ji's  need  to  be  computed  only  once.   D,  on  the  other 
hand,  varies  and  so  the  H,   's  need  to  be  computed  for  many  points.   This 
does  not  present  any  problem  because  the  H,   's  are  very  easily 


and 


quickly  computed  using  special  algorithms.   The  J,  's  are  computed  using 
the  algorithm  of  Blanch  (1964)  and  the  Y,  's  are  computed  directly  from  the 
recurrence  relation.   A  brief  description  of  Blanch's  method  is  given  in 
Section  4.3.2. 


The  Jx  2.     v'^  ^^^  computed  using  a  power  series  given  by  Luke  (1962, 
2>  "^ 


p.  44).   The  series  is 


(f) 


ji_i    (z)  =  ^  -rr-    I 


(-)"  (f) 


2n 


(2.19) 


n=0  n!  (k+1)   (2n+k+|) 


This  function  is  computed  economically  using  the  relations 
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(k+1)   =  (k+nXk+l)   ,,  (2.20) 

n  n-i 

k!  =  (k)(k-l)!,  (2.21) 

^^^  k       k-1 

z   =  (z)z    .  (2.22) 

These  relations  are  used  to  generate  the  next  term  in  the  power  series 

from  the  present  one  and  also  to  generate  Ji  i  t  , ,  (z)  from  Ji  j^  u(z). 

— 2  ,  K+i  2  ,  K. 

Since  H  is  usually  much  less  than  one,  the  power  series  (2.19)  is  rapidly 
convergent. 

The  series  (2.16)  for  the  matrix  elements  is  computed  to  an  accuracy 

of  at  least  ten  decimal  places  with  32  terms.   Various  numerical  approxi- 

_i_ 
mations  for  the  mutual  terms  due  to  the  t  ^  expansion  function  are  compared 

in  Appendix  B. 

4.3   The  Right-Hand  Side 

The  right-hand  side  of  the  integral  equation  under  study  here  is 
given  in  (1.8)  and  is 


2   .  .   -ikz  cos( 

RHS  =  —  sine  e 

^0 


With  the  help  of  the  identity 


it  cose  „(l)/,.sj^    ^  -,  n    CT  1^ 
e        H„   (t)dt,   z  >  U.   (3.1) 


kz 


■e"-=»H<»(.)dt=fj^.  0<a<,,    (3.2) 
0 


Equation  (3.1)  becomes 

kz 


RHS  =  ^  e-^'^^  '^^^^  -  f  sine  e"^^"  ''°^' 
^^0  ^0 


^it  cose  H(l)(t)dt     (3.3) 


0 
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for  z  >  0.   An  infinite  series  representation  for  the  last  integral  in 
(3.3)  is  given  by  Luke  (1962,  pp.  239-240).   One  part  of  this  representa- 
tion is 


it  cos6  ^    ,    s.  ,  „  ix  cos( 

e        JQ(t)dt  =  2e 


I      i-±r   U  (cose)  J,  ,t(x)    (3.4) 


k=0 


k+1 


where 


u.  (cose) 


^  sin(k+l)e 
sinO 


(3.5) 


is  the  Chebyshev  polynomial  of  the  second  kind  and  J.  (x)  is  the  Bessel 
function  of  the  first  kind  and  order  k.   The  other  part  of  this  representa- 


tion IS 


X 


^it  cose  Y^(t)dt  =  f  [Y  +  ^n(x/2)] 


It  COSD   ,   ,  .  , 

e        Jn(t)dt 


4   ix  cose   V  r    -!\^   TT  /„^„a\    c  r„\ 
e         I      (-1)   Uj^(cose)  Sj^(x) 

k=0 


IT 


(3.6) 


where 


S^(x)  =  ^^/^^      I      ^-^    ^^/'^    h 


(k+1)!   m=0  m!  (k+2) 


m+k+1 • 


m 


(3.7) 


In  (3.7),  hp  =  0,  hj^  =  ij;(k+l)  -  ^(1)  =   Z  -,  iKD  =  -  Y,  (z)^  is  Poch- 

r=l 

hammer's  symbol  and  ip   is  the  psi  function.   The  use  of  "S"  to  represent 

this  function  is  not  standard,  but  is  used  to  simplify  (3.6). 
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4.3.1  Computation  of  the  U,  's 

Values  of  higher  order  Chebyshev  polynomials  may  be  calculated  from 
the  recurrence  relation 


U^^^(x)  =  2x  U^(x)  -  U^_^(x)  (3.8) 


using  the  initial  terms 


Uq(x)  =  1  (3.9) 

and  U^(x)  =  2x.  (3.10) 

This  relation  is  given  by  Luke  (1969,  Volume  I,  p.  297).   The  use  of  this 
relation  is  desirable  because  it  is  faster  to  evaluate  an  array  of  U,  's 
in  this  manner  than  it  is  to  evaluate  them  using  (3.5).   Equation  (3.8) 
proves  to  be  reasonably  stable  in  the  forward  direction.   Values  for  Uq„ 
generated  by  this  method  are  accurate  to  about  10  decimal  places. 


4.3.2   Computation  of  the  J.  's 

The  method  of  Blanch  (1964)  for  the  computation  of  the  J,  's  is  based 
on  the  basic  recurrence  relation  for  Bessel's  functions  of  the  first  kind 


G  (x)  .  -r- 1 (3.11) 


where 


J  (x)  =  G  (x)  J   , (x).  (3.12) 

n       n     n-1 


The  k   continuation  of  (3.11)  yields  the  continued  fraction  expansion 
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G  (x)  =  -;—-     .    ,  -  ^ — — i .  (3.13) 

n      2n    2n+2  2n+2k   ^  ,    s 

_  . . .  _ G  J ,  ,  T  (x) 

XX  X  n+k+1 


Since  the  forward  use  of  the  recurrence  relation  (3.11)  for  n  >  x  results 

in  severe  accuracy  loss,  the  continued  fraction  method  is  used  in  the 

backward  direction  as  follows:   G     (x)  is  evaluated  using  (3.13)  with 

nmax 

k  =  15  or  more  and  G  ,,  , ,  (x)  =  0.   The  other  G  (x)  are  computed  from  (3.11) 
for  n  =  nmax-1,   nmax-2, • • • ,2 .   Finally,  the  Bessel  functions  J  (x)  are 
evaluated  from  (3.12)  for  n  =2,3,  •  •  •  ,nmax  using  Jpv(x)  and  J-,  (x)  which  have 
been  computed  with  Chebyshev  polynomials.   Blanch  gives  an  algorithm  for 
carrying  out  these  manipulations  with  minimal  accuracy  loss.   Her  algorithm 
is  used  because  Hart   et  al.  (1968,  p.  146)  say,  "her  discussion  should  be 
consulted  by  those  requiring  an  algorithm  for  computing  Bessel  functions  of 
the  first  kind  to  maximum  accuracy." 


4.3.3  The  Computation  of  the  S,  's 

The  S,  (x)  functions  of  (3.7)  are  computed  economically  by  using  the 
relations 


(k+2)   =  (k+l+m)(k+2)   ,,  (3.14) 
m             m-i 

m!  =  m(m-l)!,  (3.15) 

Vk+1  =  \+k  +^S4^  '  ^^-^^^ 

and  (z)"  =  z(z)'""-'-.  (3.17) 


The  relations  are  used  to  generate  the  next  term  in  the  power  series  from 
the  present  one  and  also  to  generate  S,  ^ (x)  from  S,  (x) . 
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4.3.4   Final  Remarks  on  RHS 


For  the  case  9  =  90°,  (3.1)  reduces  to 


RHS  = 


H^^^t)dt 


(3.18) 


kz 


which  is  written  in  series  of  Chebyshev  polynomials  in  Equations  (2.4), 
(2.5),  and  (2.7).   Table  4.1  gives  the  accuracy  of  the  approximations  (3.4) 
and  (3.6)  for  9  =  90°  using  the  Chebyshev  polynomial  expansions  for  (3.18) 
as  the  standard.   The  term  "Digits  of  Accuracy"  is  explained  in  Appendix  A. 
This  table  shows  that  the  real  part  of  RHS  is  very  accurate,  but  that  the 
accuracy  of  the  imaginary  part  decreases  rapidly  with  increasing  argument. 
The  rapid  deterioration  of  accuracy  for  the  right-hand  side  for  arguments 
greater  than  20  requires  that  the  limits  of  integration  of  the  integral 
equation  (1.9)  be  set  at  20  or  less.   Graphs  of  RHS  for  9  =  45°,  90°,  135°, 
and  180°  and  for  arguments  between  zero  and  twenty  are  shown  in  Figure  4.2. 


4.4  The  Efficient  Inversion  of  the  Almost-Toeplitz  Matrix 
Throughout  this  section,  the  notation 


^ 


(4.1) 


is  used  to  represent  a  column  vector  x  and  its  elements.   An  efficient 
algorithm  for  the  inversion  of  Toeplitz  matrices  has  been  developed  by 
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Table  4.1 

Digits  of  Accuracy  for  RHS  by  Double  Precision  Evaluation 
of  Equations  (3.4)  and  (3.6) 

Digits  of  accuracy 


Imag.  Part 


5.0  15.0  14.1 

10.0  15.1  12.1 

20.0  14.6  7.6 

30.0  13.3  3.4 

40.0  13.5  0.9 


Notes:   1.  16  digit  accuracy  possible. 

2.  All  suiiunations  truncated  after  85  terms. 

3.  For  X  greater  than  40,  the  imaginary  part  becomes  very  large. 

4.  RHS  is  given  by  Equation  (3.3). 
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Preis  (1972).   An  earlier  discussion  of  Toeplitz  matrix  inversion  is  given 
by  Bareiss  (1969).   The  matrix  equations  (1.12)  and  (1.13)  may  be  written 
as 


(T  +  L)x  =  X 


(4.2) 


where,  in  the  notation  of  Section  4.1.3,  T  is  the  Toeplitz  matrix 


T  = 


h        ^2 


h        h 


"^N    *^N-1 


"N-1 


(4.3) 


and  L  is  the  matrix 


=   £00 


(4.4) 


with 


Z   = 


"l  -  ^1 


"2  -  ^2 


"n"  'n 


and    0 


(4.5) 


Here  z.  is  either  r.  or  p..   These  are  given  by  (1.15)  and  (1.16),  respec- 
tively,  t.  is  given  by  (1.17).   Multiplying  (4.2)  by  T   ,  the  inverse  of 


T,  one  obtains 
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(I  +  M)x  =  c 


(4.6) 


where  I  is  the  identity  matrix,  M  is  the  matrix 


M  = 


m   0   0 


(4.7) 


with 


m  =  T  ''"  £  , 


(4.8) 


and  c  is  the  vector 


£  =  T  Y. 


(4.9) 


Solving  (4.6)  for  x  obtains 


X.  =  c .  - 


m.c, 
1  1 


i    i   1+m, 


(4.10) 


After  m  and  c^  are  obtained  using  the  efficient  Toeplitz  matrix  inversion 
routine,  the  solution  vector  x  is  readily  obtained  from  (4.10). 


4.5   The  Results 

The  integral  equation  (1.9)  for  the  E-polarization  half-plane  current 
{I   -  I   }(z')  is  solved  here  by  the  method  of  moments  using  the  almost- 
Toeplitz  matrix  inversion  algorithm.   Two  expansion  function  sets  are  used. 
Results  due  to  a  hybrid  expansion  function  set  are  compared  with  results 
due  to  an  all-pulse  expansion  function  set.   The  expansion  function  sets 
are  described  in  Section  4.1.3.   The  standard  approximation  to  which  both 
will  be  compared  is  obtained  by  subtracting  (1.5)  from  Equation  (3.3)  of 
Chapter  3.   After  careful  study  of  this  standard,  the  subsection  half-width 
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H  is  chosen  to  be 

H  =  0.05.  (5.1) 

This  is  small  enough  that 

1    e^" 

so  that  the  edge  expansion  function  closely  approximates  the  actual  current 
over  its  range  of  applicability.   The  diminishing  accuracy  of  the  imaginary 
part  of  (3.3)  for  arguments  greater  than  20  requires  the  upper  limit  of 
integration  to  be  about  20.   For  a  total  of  200  subsections,  this  upper 
limit  becomes  19.95.   A  total  of  200  subsections  are  used  for  both  the 
hybrid  and  the  all-pulse  expansion  function  sets.   For  each  of  these  sets, 
computations  are  carried  out  for  the  four  angles  of  incidence  6  =  45°,  90°, 
135°,  and  180°. 

4.5.1  Accuracy  of  the  Moment  Method  Results 

The  solution  vectors  for  the  hybrid  expansion  are  plotted  on  top  of 
the  standard  in  Figures  4.3  through  4.6  for  the  angles  of  incidence  G  =  45°, 
90°,  135°,  and  180°,  respectively.   The  standard  is  computed  using  the 
Chebyshev  polynomial  expansion  for  the  Fresnel  integral  given  by  Luke  (1969, 
Volume  II,  Table  24,  pp.  328-329).   Agreement  between  the  hybrid  expansion 
moment  method  solution  and  the  standard  is  generally  excellent.   Diffi- 
culties do  occur,  however,  around  kz  =  20  at  least  to  some  degree  for  all 
angles  of  incidence.   Comparison  of  results  for  truncation  points  of  15  and 
20  shows  that  the  same  behavior  is  exhibited  around  15  for  the  former  case 
as  is  exhibited  around  20  for  the  latter.   Therefore,  it  seems  valid  to  say 
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that  the  inaccuracies  around  20  in  these  figures  are  due  to  the  truncation 
of  the  integral  at  20.   The  results  for  the  all-pulse  expansion  function 
set  away  from  the  edge  are  similar  to  those  for  the  hybrid  expansion.   The 
hybrid  expansion  is  much  better  than  the  all-pulse  expansion  for  points 
close  to  the  edge.   Figures  4.7  and  4.8  emphasize  the  behavior  of  the  two 
approximations  near  the  edge  for  6  =  45°  and  180°,  respectively.   For  both 
angles  of  incidence,  the  solution  vector  for  the  hybrid  expansion  is  a 
better  approximation  to  the  standard  than  that  for  the  all-pulse  expansion. 
It  is  obvious  that  the  inverse  square  root  expansion  function  is  a  better 
approximation  to  the  standard  than  is  the  edge  pulse  expansion  function. 
It  is  not  clear  whether  the  height  of  this  edge  pulse  has  any  significance. 
Relations  between  the  all-pulse  expansion  solution  and  the  hybrid  expan- 
sion solution  for  the  first  two  elements  are  derived  in  Section  4.5.2. 

The  explicit  edge  behavior  of  the  solutions  are  compared  to  the  stan- 
dard in  Figures  4.9  and  4.10  for  6  =  45°  and  180°,  respectively.   For 
0  =  45°  the  agreement  of  the  hybrid  expansion  solution  with  the  standard 
is  acceptable.   For  9  =  180°  it  is  excellent.   This  is  because  for  0  =  180° 
the  Fresnel  integral  term  in  (3.3)  of  Chapter  3  drops  out.   Table  4.2  gives 
the  accuracy  of  the  edge  coefficients  for  all  four  angles  of  incidence. 
The  accuracy  of  the  real  part  for  9  =  45°  is  quite  low  because,  as  Figure 
4.9  shows,  the  moment  method  attempts  to  fit  the  standard  over  the  sub- 
section width  in  some  average  sense.   The  low  accuracy  is  also  due  to  the 
fact  that  the  standard  is  computed  at  the  edge,  while  the  numerical  solu- 
tion is  some  type  of  fit  over  the  subsection  width.   This  makes  meaningful 
comparisons  difficult,  but  this  table  does  show  relevant  trends  in  the 
accuracy  of  the  fit. 
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Table  4.2 

Accuracy  of  the  Inverse  Square  Root  Expansion  Function 

Coefficient 

Digits  of  Accuracy  Decimal  Offset  Factor 

Real       Imag.  Real       Imag. 

45° 
90° 

135° 
180° 


Notes:   1.   Standard  is  computed  at  the  edge  and  is 


9    •    ® 

2  sin  y 

-f-   (1  +  i)  . 

2.   Subsection  half-width  H  is  0.05, 


0.7 

2.1 

0.8 

2.4 

1.0 

1.8 

2.3 

1.6 

0.4 

0.4 

0.1 

0.1 

-0.02 

-0.02 

-0.05 

-0.05 
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The  relative  accuracies  of  the  moment  method  solutions  are  compared  to 
the  standard  for  the  hybrid  expansion  and  for  the  all-pulse  expansion  in 
Tables  4.3  and  4.4,  respectively.   Numbers  for  the  case  of  normal  incidence 
are  shown,  but  similar  numerical  trends  appear  for  the  other  angles  of  inci- 
dence as  well.   The  relative  error  is  found  at  each  match  point  except  the 
first  by  comparing  the  moment  method  solution  with  the  standard  evaluated 
at  the  subsection  midpoint.   At  some  points  the  error  is  found  to  be  very 
large.   With  the  standard  very  small  and  the  moment  method  solution  several 
orders  of  magnitude  larger,  but  still  near  zero,  the  relative  error  is 
quite  large.   This  often  occurs  around  zero  crossing  points  because  the 
moment  method  does  not  give  answers  as  close  to  zero  as  the  standard  does. 
The  average  relative  error  is  computed  excluding  errors  greater  than  15% 
for  the  top  half  of  each  table  and  excluding  errors  greater  than  1%  for 
the  bottom  half.   The  15%  and  1%  figures  correspond  to  0.8  digits  and  2.0 
digits  of  accuracy,  respectively.   The  term  "Digits  of  Accuracy"  is  ex- 
plained in  Appendix  A.   With  proper  exclusions,  the  average  relative  error 
over  each  range  given  is  found  and  the  digits  of  accuracy  figure  given  is 
-£og,„  of  this.   Also  given  (preceded  by  a  slash)  is  the  total  number  of 
points  Included  in  taking  the  average.   Four  ranges  of  subsections  for 
averaging  are  used.   The  accuracy  of  the  moment  method  solution  in  the 
neighborhood  of  the  edge  is  checked  over  subsections  2  through  6.   Figures 
are  also  given  for  subsection  ranges  2  through  150,  151  through  200,  and 
2  through  200.   These  figures  show  the  effect  of  truncation  of  the  infinite 
integral.   Over  the  range  151  through  200,  the  accuracy  of  the  hybrid  ex- 
pansion solution  and  that  of  the  all-pulse  expansion  solution  are  very 
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Table  4.3 


Average  Digits  of  Accuracy  for  the  Hybrid  Expansion 
Solution  Over  Several  Ranges 


Range  of 
subsections 
for  averaging 


Total 
S.S. 


Real 


Imag. 


Mag. 


Phase 


Data  with  less  than  0.8  digits  of  accuracy 
excluded  in  average 


2-6 

/5 

1.2 

/3 

1.9 

/5 

2.1 

/5 

1.8 

/5 

2  -  150 

/149 

2.3 

/145 

2.1 

/148 

2.6 

/149 

2.4 

/149 

151  -  200 

/50 

1.4 

/46 

1.6 

/42 

1.6 

/49 

1.7 

/45 

2  -  200 

/199 

1.8 

/191 

1.9 

/190 

2.1 

/198 

2.1 

/194 

Data  with  less  than  2.0  digits  of  accuracy 


excluded  in  average 

2  - 

6 



2.3 

2.6 

2.2 

/5 

/o 

/3 

/3 

/3 

2  - 

150 

2.7 

2.4 

2.6 

2.7 

/149 

/130 

/lis 

/147 

/138 

151  - 

200 

2.2 

2.3 

2.3 

2.3 

/50 

/23 

/15 

/25 

/21 

2  - 

200 

2.6 

2.4 

2.6 

2.6 

/199 

/153 

/133 

/172 

/159 

Notes:   1.   6  =  90°,  H  =  0.05. 

2.  The  number  preceded  by  a  slash  is  the  number  of  conforming  data 
points  included  in  the  average. 

3.  The  digits  of  accuracy  figure  used  here  is  -log^^  (average 
relative  error) . 

4.  3  digits  =  0.1%,  2  digits  =  1%;  1  digit  =  10%. 
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Table  4.4 

Average  Digits  of  Accuracy  for  the  All-Pulse  Expansion 
Solution  Over  Several  Ranges 


Range  of 
subsections 
for  averaging 


Total 
S.S. 


Real 


Imag. 


Mag. 


Phase 


Data  with  less  than  0.8  digits  of  accuracy 
excluded  in  average 


2-6 

1.0 

1.1 

1.2 

1.5 

15 

/2 

/4 

/4 

/4 

2  -  150 

1.5 

1.5 

2.2 

1.7 

/149 

/134 

/135 

/148 

/143 

151  -  200 

1.4 

1.4 

1.6 

1.5 

/50 

/47 

/40 

/49 

/43 

2  -  200 

1.5 

1.4 

1.9 

1.6 

/199 

/181 

/175 

/197 

/186 

Data  with  less  than  2.0  digits  of  accuracy 
excluded  in  average 


2-6 

/5 

/o 

/o 

/O 

/O 

2  -  150 

/149 

2.3 

/40 

2.3 

/33 

2.6 

/130 

2.1 

/45 

151  -  200 

/50 

2.3 

/9 

2.3 

/lO 

2.3 

/26 

2.3 

/8 

2  -  200 

/199 

2.3 

/49 

2.3 

/43 

2.5 

/156 

2.1 

/53 

Notes:   1.   0  =  90°,  H  =  0.05. 

2.  The  number  preceded  by  a  slash  is  the  number  of  conforming  data 
points  included  in  the  average. 

3.  The  digits  of  accuracy  figure  used  here  is  -log^„  (average 
relative  error) 

4.  3  digits  =  0.1%;  2  digits  =  1%;  1  digit  =  10%. 


89 


close  to  each  other,  while  over  the  range  2  through  150  they  are  somewhat 
different.   This  seems  to  indicate  that  truncation  most  seriously  limits 
the  accuracy  of  those  elements  in  its  vicinity  and  allows  us  to  say  that 
the  truncation  has  negligible  effect  over  subsections  2  through  150. 

Comparison  of  the  results  over  the  range  2  through  150  shows  that 
the  answers  for  the  hybrid  expansion  are  much  better  than  those  for  the 
all-pulse  expansion.   Consider  the  bottom  portion  of  each  table  where 
accuracies  of  less  than  two  digits  are  excluded  in  the  average.   Although 
the  figures  for  digits  of  accuracy  appear  to  be  comparable,  the  true  story 
is  told  by  the  number  of  terms  included  in  the  respective  averages.   For 
the  hybrid  expansion,  130,  118,  147,  and  138  points  are  included  out  of  a 
possible  total  in  each  case  of  149  while  for  the  all-pulse  expansion,  only 
40,  33,  130,  and  45  points  are  included  for  the  real  part,  imaginary  part, 
magnitude  and  phase,  respectively.   Note  that  the  magnitude  of  the  all-pulse 
expansion  is  accurate  to  nearly  the  same  degree  as  is  that  of  the  hybrid 
expansion.   Inaccuracies  in  the  phase  for  the  all-pulse  expansion  seems 
to  spoil  it. 

The  accuracy  of  the  hybrid  expansion  is  much  better  in  the  vicinity 
of  the  edge  than  is  the  all-pulse  expansion  as  the  numbers  for  the  range 
2  through  6  show.  This  is  consistent  with  conclusions  drawn  from  visual 
study  of  Figures  4.7  and  4.8. 

4.5.2   The  Relation  Between  the  Hybrid  Expansion  Solution  and  the  All-Pulse 
Expansion  Solution 
It  is  often  asked,  "What  is  the  significance  of  the  value  of  the  solu- 
tion for  the  edge  pulse  in  the  all-pulse  expansion  and  how  does  it  relate 
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to  the  value  for  the  hybrid  expansion?"   The  answer  to  this  question  is 
discussed  here. 

The  matrix  equation  for  the  hybrid  expansion  is 


Ax  =  '1_ 


(5.3) 


and  that  for  the  all-pulse  expansion  is 


aV  =  T- 


(5.4) 


A  and  A  are  the  matrices  given  by  (1.14).   2i  ^nd  x  are  the  solution 
vectors  for  each  expansion  and  ^  is  the  right-hand  side  common  to  both 
equations.   Subtracting  (5.3)  from  (5.4),  one  obtains 


A^x'^  =  aPxP 


(5.5) 


or 


(R  +  1^^   =  (P  +  1^^ 


(5.6) 


where 


R 


P  = 


r   0   0 


£   0   0^  "•   0 


(5.7) 
(5.8) 


and 


T  =  T  - 


too 


(5.9) 


Here  T  is  the  Toeplitz  matrix  of  (4.3)  and  t^  is  the  first  column  of  this 
matrix.  r^  and  p^  correspond  to  the  first  column  of  A  and  A  as  given  by 
(1.14),  respectively.  After  multiplying  by  T  and  simplifying.  Equation 
(5.6)  becomes 


(T  -"-R  +  I^  )x'^  =  (T  """P  +  I  )  ^ 

Li  i-i 


(5.10) 
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where  I   is  the  identity  matrix  I  except  that  the  first  element  in  the 
first  row  is  zero  instead  of  one.   Solving  for  x  yields 


(5.11) 


and 


x^  =  xP  + 
J    J 


-1      (^  ^h        -1 
(T  £). T-^   (T  M 

^    (T  £)         J 


^1' 


J  >  1. 


(5.12) 


Here  the  notation  (T  w)   represents  the  n   element  in  the  column  vector 
T-^w. 

If  (T  £)i>  (T  ^)i>  ^rid  x  are  known,  then  the  first  element  in  the 
hybrid  expansion  solution,  x^ ,  may  be  found  from  (5.11).   Similarly,  the 
rest  of  the  elements  in  the  hybrid  expansion  solution  may  be  found  from  the 
elements  of  the  all-pulse  expansion  solution  by  using  (5.12). 

Figure  4.11  gives  plots  of  the  results  near  the  edge  for  6  =  135°. 
Identical  plots,  except  for  9  =  45°  and  180°,  are  given  in  Figures  4.9  and 
4.10.   It  is  interesting  to  note  that  all  three  curves  cross  at  about  the 
same  point  in  these  figures.   It  is  not  known  if  there  is  some  simple  ex- 
planation for  this.   The  crossing  point  in  these  figures  is  located  at  about 
/h/8  where  H  is  the  width  of  the  edge  subsection  and  is  0.05  in  this  case. 
This  makes 

x^  =  v/h78  x^.  (5.13) 


Hypothesizing  that  this  relation  holds  for  all  H  and  experimenting  with 
subsection  size  gives  the  results  presented  in  Table  4.5.   The  accuracy  of 
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the  coefficient  for  the  inverse  square  root  edge  expansion  function  is 
compared  with  /h/8  times  the  coefficient  of  the  edge  pulse  in  the  all- 
pulse  expansion.   For  values  of  H  of  0.05,  0.1,  and  0.4,  the  relative 
error  in  making  the  approximation  of  (5.13)  is  about  1%,  3%,  and  10%, 
respectively.   For  many  purposes,  and  especially  for  small  subsection 
size,  use  of  (5.13)  proves  to  be  an  adequate  approximation  to  (5.11). 

Study  of  the  numerical  results  and  of  Figures  4.7  and  4.8  indicates 
that  a  correction  to  the  all-pulse  solution  for  the  second  subsection  may 
also  be  necessary,  but  that  a  correction  is  probably  not  needed  for  the 
other  subsections.   Explicitly  writing  (5.12)  for  the  second  subsection 
gives 


x^  =  x„  + 


-1      (^  ^h        -1 

(T   P). ZT^   (T  M„ 

(T  r) 


xP.  (5.14) 


Hypothesizing  that  each  of  the  terms  in  the  bracket  are  simple  functions 
of  H,  the  subsection  half-width,  results  in  the  empirical  formulas 


„-l     s  TI 


(T     L\  =  ^  (    1   -   i[H/3]    ),  (5.15) 


H^ 


(T      r)      = re  ,  (5.16) 

"  ^  15  H^ 

(t"^)^   =    (5TT-l+/67ir  H^)/107r   -   i(^/13)^H    [1-tt(it/13)  V]  ,  (5.17) 


and 


(t"^£)2   =  ^   [1+(1.36H)2]    -i  i^  H    [1-(1.8H)2].  (5.18) 
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These  are  obtained  using  standard  curve  fitting  techniques  applied  at  two 
points.   The  equations  are  written  using  constants  and  operations  that  are 
readily  available  on  an  HP-45  calculator.   When  the  actual  numbers  are 
used,  values  computed  at  other  points  often  match  to  6  digits.   Much  better 
curve  fits  could  certainly  be  given  using  six  digit  numerical  values  in- 
stead of  the  simple  values  given  above. 

The  accuracies  of  the  empirical  formulas  are  compared  to  the  actual 
numerical  values  in  Tables  4.6  through  4.9  for  four  values  of  H.   As  these 
tables  show,  the  agreement  is  very  good. 

The  form  of  Equations  (5.15)  through  (5.18)  is  not  completely  sur- 
prising.  Study  of  the  first  row  of  T   shows  that  Im(T   )^.  is  roughly 

proportional  to  — .   The  results  of  Appendix  B  show  that  the  elements  of  £ 
H 

and  £  are  proportional  to  v4l  and  H,  respectively,  at  least  in  some  approx- 
imate sense.   This  makes  the  elements  of  T  ^  proportional  to  H  ^  and  those 
of  T  £  to  1.   That  (T  £) ,  is  close  to  0.5  might  be  guessed  by  remember- 
ing that  the  range  of  integration  for  the  elements  of  £  is  H  while  that  of 
_t  is  2H.   Since  (T  _t)   =  1,  it  makes  sense  that  (T  £),  -  0.5. 

Substituting  the  empirical  formulas  in  (5.11)  and  (5.14)  gives 

x^  =  q^(H)  xP  (5.19) 

and 

X2  =  xP  +  q2(H)  xj  (5.20) 

where 

_  (5tt  -1+/67^  H^)/10tt  -  i(Tr/13)^H  [l-Tr(TT/13)  V]  ^^j        (.321) 

^  TT'^(l-i[H/3]) 
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Table  4.6 


-1 


Comparison  of  the  Empirical  Formula  for  (T  _r ) ^ 
with  Numerical  Results 


Numerical  value 
of  {T~\)^ 


Number  of  matching     Number  of  matching 
decimal  places  digits 


Real 


Imag. 


Real 


Imag. 


0.005 


18.8263 


-i0.0328 


2.8 


2.8 


4.1 


1.4 


0.05 


5.9527 


-i0.0990 


2.9 


3.7 


3.7 


2.7 


0.1 


0.4 


4.2091 


-i0.1401 


2.1033 


-i0.2810 


3.0 


3.6 


3.5 


3.6 


3.1 


2.7 


2.9 


-1 


1/4 


Empirical  formula:   (T  L) i  =  ~Y/2    ^^  ~   ^^^^^'^^ 

H 


Notes:  1.   The  numerical  value  is  used  as  the  standard  for  the  calculation 
of  matching  digits. 
2.   These  numbers  are  approximately  independent  of  matrix  order  for 
orders  greater  than  ten. 
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Table  4.7 


Comparison  of  the  Empirical  Formula  for  (T   r_) , 
with  Numerical  Results 


H 


Numerical  value 
of  (T'^r)^ 


Number  of  matching 
decimal  places 


Real 


Imag. 


Number  of  matching 
digits 


Real 


Imag. 


0.005 


-2.1725 

-iO.0141 


2.8 


4.8 


3.2 


3.0 


0,05 


-0.6853 

-i0.0421 


3.1 


2.7 


3.0 


1.3 


0.1 


-0.4804 

-i0.0593 


2.8 


2.5 


2.5 


1.3 


0.4 


-0.2009 

-i0.1068 


2.0 


1.9 


1.3 


0.9 


Empirical  formula: 


(T  ^2  = 


3^/^^/"^   i  v/573  H 


15  H 


1/2 


Notes:  1.   The  numerical  value  is  used  as  the  standard  for  the  calculation 
of  matching  digits. 
2.   These  numbers  are  approximately  independent  of  matrix  order  for 
orders  greater  than  ten. 
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Table  4.8 


-1 


Comparison  of  the  Empirical  Formula  for  (T  £) 
with  Numerical  Results 


H 


Numerical  value 
of  (t"Vi 


Number  of  matching     Number  of  matching 
decimal  places  digits 


Real 


Imag. 


Real 


Imag. 


0.005 


0.468196 


■iO. 000305 


4.6 


4.9 


4.3 


1.4 


0.05 


0.468283 


-iO. 002916 


5.3 


5.6 


5.0 


3.1 


0.1 


0.468606 


-iO. 005825 


5.6 


5.3 


5.3 


3.1 


0.4 


0.475197 


-iO. 022651 


5.0 


4.6 


4.6 


3.0 


-1 


Empirical  formula:   (T  £)   =  (5tt  -  1  +  /6/tt  H  )/10tt 


-  i(— )  H[l  -  tt(— )  H  ] 


Notes:  1.   The  numerical  value  is  used  as  the  standard  for  the  calculation 
of  matching  digits. 
2.   These  numbers  are  approximately  independent  of  matrix  order  for 
orders  greater  than  ten. 
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Table  4.9 

Comparison  of  the  Empirical  Formula  for  (T  £) , 
with  Numerical  Results 


H 


Numerical  value 
of  (t"-^p)„ 


Number  of  matching 
decimal  places 


Real 


Imag. 


Number  of  matching 
digits 


Real 


Imag. 


0.005 


0.050147 

-iO. 000131 


4.9 


5.2 


3.6 


1.3 


0.05 


0.050370 

-iO. 001232 


5.3 


4.0 


2.8 


0.1 


0.051065 

-iO. 002404 


5.3 


5.6 


4.0 


3.0 


0.4 


0.064024 

-iO. 004793 


3.0 


4.9 


1.8 


2.6 


-1 


Empirical  formula:   (T  £) „ 


^^  [1  +  (1.36H)^]  -  i  —^  H[l  -  (1.8H)^] 


100 


100 


Notes:  !•   The  numerical  value  is  used  as  the  standard  for  the  calculation 
of  matching  digits. 
2.   These  numbers  are  approximately  independent  of  matrix  order  for 
orders  greater  than  ten. 


100 


and 


q2(H) 


^"^  [1+(1.36H)^] 


100 


i  ^3^H  [1-(1.8H)^] 


+  q^^CH) 


3^  ^  ^   i  /573  H 

h^ 

15  h' 


(5.22) 


Table  4.10  compares  the  numerical  results  for  x..  and  x„  with  q^  (H)x,  and 
x^  +  q„(H)x^,  respectively.   Comparisons  are  given  for  four  subsection 
sizes.   The  error  is  generally  less  than  1%  and  in  some  cases  is  less  than 
0.1%.   For  most  purposes,  these  formulas  give  answers  that  are  more  accu- 
rate than  they  need  to  be  in  light  of  the  fact  that  the  error  introduced 
in  using  the  moment  method  is  often  quite  large. 

The  empirical  formulas  (5.15)  through  (5.18)  are  also  useful  for 
obtaining  x-.  ,  X2,  x^,  and  X2  from  x  and  x„.   x  is  the  solution  of 


T  X  =2 


(5.23) 


-1 


where  T  is  the  Toeplitz  matrix  in  (4.3).   Using  the  facts  that  (T   O -j^  =  1 


and  (T  _t)„  =  0,  it  may  be  shown  that 


x^  =  x^/(T   r)^, 


(5.24) 


X 


P  =  xj/(t  \)^, 


C2  =  x^  -  [(T  ^r)^l{T   ^r)^]    x^, 


and 


,P  -  ^t 


-1 


^  =  X2  -  [(T  £)2/(T  ^){^    x^ 


(5.25) 
(5.26) 
(5.27) 


Although  these  formulas  look  simpler  than  those  relating  x  and  x  ,  the 
accuracy  of  the  solution  x   is  less  than  that  of  }£  which  is  less  than  that 
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Table  4.10 

Comparison  of  the  Values  of  the  First  Two  Elements  in 
the  Solution  Vector  for  the  Hybrid  Expansion  with  the 
Values  Obtained  Using  the  Corresponding  Elements  for 
the  All-Pulse  Expansion  and  the  Empirical  Formulas 

Number  of  matching  digits 


X,  compared  to  x„  compared  to 


2 

qj^(H)xP  xP  +  q^m^l 

H                    Real  Imag.  Real  Imag. 

0.005                  1.8  1.9  2.4         2.5 

0.05                   3.6  3.7  3.0         3.1 

0.1                    3.6  3.7  2.5         2.7 

0.4                    3.6  3.0  2.3        1.5 


Notes:   1.   0  =  135°  for  comparisons,  but  result  does  not  depend  on  0. 

2.   The  numerical  values  of  x^  and  X2  are  used  as  the  standard 
for  the  calculation  of  matching  digits. 
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r 
of  X  .   For  this  reason,  it  is  very  desirable  to  use  the  almost-Toeplitz 

algorithm  to  obtain  x    ,    at  least,  instead  of  the  Toeplitz  algorithm  to 

obtain  x  .   If  only  x   is  available.  Table  4.11  gives  the  accuracy  that 

would  be  obtained  if  (5.24)  through  (5.27)  and  the  empirical  formulas  were 

used  to  modify  the  values  of  the  first  two  elements.   For  the  case  given, 

the  relative  error  is  less  than  0.1%. 

If  the  right-hand  side  of  the  matrix  equation  (5.23)  is  peaked  around 
the  first  element,  then  approximations  to  x,  may  be  easily  obtained.   The 
right-hand  side  of  the  integral  equation,  given  by  (3.1),  is  such  a  func- 
tion (see  Figure  4.2).   Table  4.12  gives  the  values  of  the  first  few 
elements  of  T   along  with  the  number  of  matching  digits  for  various  orders 
of  matrices.   The  inverse  is  clearly  peaked  around  the  first  element  and 
rapidly  decreases  away  from  this  element.   If  the  right-hand  side  ^  also 
decreases  away  from  the  first  element,  then  because  of  rapid  convergence 
properties  it  is  acceptable  to  use  only  a  few  terms  to  evaluate  (T  ^)  ^ 
instead  of  the  full  number  of  terms.   Reasonable  answers  for  (T  ^)   are 
obtained  for  a  matrix  of  order  ten,  and  surprisingly  good  answers  are 
obtained  for  matrix  orders  between  ten  and  three. 

Following  the  above  argument,  it  can  be  seen  that  terms  of  the  form 
(T  r)      or  (T  £)  ,  as  given  in  (5.11)  and  (5.12),  are  approximately  in- 
dependent of  the  order  of  the  matrix  T,  at  least  for  the  first  few  elements 
(small  n) .   It  is  this  property  that  allows  the  empirical  formulas  (5.15) 
through  (5.18)  to  be  given  as  functions  of  H  only.   The  empirical  formulas 
are  approximately  independent  of  matrix  order  as  long  as  the  matrix  order 
is  ten  or  more  and  two  or  three  digit  accuracy  is  sufficient. 
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Table  4.11 

Comparison  of  the  Values  of  the  First  Two  Elements  in 
the  Hybrid  and  All-Pulse  Expansion  Solution  Vectors 
with  the  Values  Obtained  Using  the  Corresponding 
Elements  in  the  Toeplitz  Solution  Vector 

Number  of  matching  digits 


Comparison 


Real 


Imag. 


(T  -^r). 


3.8 


3.7 


4.0 


4.6 


X2  - 


<^"'^)2   t 


3.0 


3.1 


P    t    ^^  ^h      t 
^2  •  ^2    ,„-l    ^^ 


(T  P)i 


3.4 


4.3 


Notes : 


H  =  0.05  and  6  =  135°  for  all  comparisons.   The  empirical 
formulas  are  used  to  compute  all  T~lr^  and  T'-^-p^  terms. 


X.  :  hybrid  solution 


X.  :  all-pulse  solution 
1 


X.  :  Toeplitz  solution 
1 


r      p 
3.   The  numerical  values  of  x-^  and  x^   are  used  as  the  standard 

for  calculation  of  matching  digits. 
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4. 6  Conclusion 

For  the  E-polarization,  the  CSF  approach  and  the  ordinary  approach 
are  virtually  the  same.   In  both  cases,  the  same  integral  equation  must 
be  solved  by  the  method  of  moments.   A  comparison  of  the  moment  method 
results  for  the  induced  current  with  the  exact  results  shows  that  the 
moment  method  is  reasonably  accurate.   It  is  also  shown  that  the  use  of 
the  hybrid  expansion  yields  better  accuracy  than  does  the  use  of  the  all- 
pulse  expansion.   For  many  purposes,  however,  the  all-pulse  expansion 
solution  will  suffice  as  long  as  the  values  of  the  first  two  elements  are 
corrected  using  the  empirical  formulas.   The  complete  computer  program  for 
the  E-polarization  half-plane  problem  is  given  in  Appendix  D.   The  results 
of  this  chapter  are  used  in  the  next  chapter  to  generate  results  for  the 
H-polarization  by  using  the  current  source-function  technique. 
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5.   THE  NUMERICAL  SOLUTION  OF  THE  HALF-PLANE  PROBLEM  BY  THE  CURRENT 
SOURCE-FUNCTION  TECHNIQUE:   H-POLARIZATION 

The  closed  form  solution  of  the  half-plane  problem  with  H-polarized 

incident  field  by  the  CSF  technique  is  presented  in  Chapter  3.   Numerical 

procedures  for  the  application  of  the  CSF  technique  to  this  same  problem 

are  described  here.   The  numerical  results  for  {l„  -  I„^}  that  are  de- 

E    PO 

scribed  in  the  previous  chapter  are  used  to  obtain  numerical  results  for 

{1  -  I   },  the  H-polarization  current  minus  the  H-polarization  physical 
H     po 

optics  current.   Mayes  (1972)  and  Prettie  and  Dudley  (1974)  have  worked  on 
the  numerical  solution  of  the  problem  of  scattering  of  a  plane  wave  from  a 
cylindrical  rod  using  the  CSF  technique.   Some  unresolved  questions  about 
their  results  further  motivated  the  present  work  on  the  half-plane  problem 
which  has  been  discussed  elsewhere  by  Hanson  and  Mayes  (1975). 

5.1  The  Current  Source-Function  Technique  Applied  to  the  Half-Plane 

Problem 

The  configuration  for  the  H-polarization  half-plane  problem  with  plane 
wave  incidence  is  given  in  Figure  2.1(b).   The  CSF  technique,  as  is  de- 
scribed previously,  is  a  two  step  process.   In  the  application  to  the  half- 
plane  problem,  the  first  step  is  to  solve  the  integral  equation 


Fp 


u„(z')  H^^^k|z-z'|)dz'  =  lysine  e-^*^^  ^°^^    z  >  0,    (1.1) 
HO  Zq 


for  u  (z").   The  second  step  is  to  find  the  current  1^   from 


I^(z)  = 


u„(z')  g(z,z')dz',     -co  <  z  <  «>.  (1.2) 

rl 
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In  the  numerical  work  at  hand,  the  solution  for  {l„  -  I„^},  given  in  the 

£j  rU 

last  chapter,  is  used  to  find  I  .   This  is  necessary  because  the  moment 

H 

method  results  for  the  difference  {l^  -  I„„}  are  available  directly. 

E    PO 

5.1.1  The  Physical  Optics  Current  for  the  H-polarization,  I 

The  physical  configuration  of  the  H-polarization  physical  optics  pro- 
blem is  just  that  given  by  Figure  2.1(b)  except  that  the  conductor  extends 
to  infinity  in  all  directions.   Although  the  CSF  technique  does  not  require 

that  a  solution  be  found  in  terms  of  {l„  -  I   },  this  difference  is  used 

H    po 

because  it  is  of  the  same  form  as  the  solution  tip  ~  ^vn^   ^°^  ^^^   ^~ 
polarization  is.   Following  steps  similar  to  those  outlined  in  Section  4.1.1 
for  the  E-polarization  case,  the  H-polarization  physical  optics  current  be- 
comes 

2   -ikz  cos6  ,,    Tx 

I   =  ^;—  e         .  (1.3) 

po   Zq 

Lower  case  "po"  is  always  used  to  indicate  the  H-polarization  physical 
optics  current  while  upper  case  "PO"  is  always  used  for  the  E-polarization. 

5.1.2  The  Solution  for  u  ,  the  Current  Source-Function,  in  Terms  of  {Ig'^pg-^ 

The  rigorous  solution  for  u„,  the  H-polarization  current  source-function, 

H 

is  given  in  Chapter  3.   Recall  that  u   is  a  solution  of  the  integral  equation 


Fp 


u„(z')  Hi^>(k|z-z'|)dz'  =  lysine  e-^'^^  ^°^^   z>0.   (1.4) 
H       U  ZiQ 


0 


where  u  (z')  satisfies  the  edge  condition 
H 
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_3. 

u„(z')  =  0(  z'  M   as   z'  -^  0.  (1.5) 

n 

Also  recall  that  the  solution  of  this  integral  equation,  given  by  (4.2)  of 
Chapter  3,  is  made  up  of  two  parts.   The  first  part  is  the  one  that  repro- 
duces the  right-hand  side.   This  part  is  simply  the  locally  integrable 
solution  to  the  integral  equation  and  is 

sine  v(z')  =  k^  sine  I^(z')l  (z')  = 

=  k^  sine  {I^  -  IpQ}(z')l^(z')  +  k^  sine  IpQ(z' )l_^(z' ) . 

(1.6) 
The  second  equality  is  obtained  by  adding  and  subtracting  k  sine  Ipgl^  in 
the  first  equality. 

The  other  part  of  the  solution  to  the  integral  equation  (1.4)  is  the 
part  that  does  not  violate  the  edge  condition  (1.5)  and  satisfies  the 
homogeneous  finite  part  integral  equation 


Fp 


w(z')  H^^^(k|z-z'|)dz'  =  0,    z  >  0.  (1.7) 


A  solution  to  this  homogeneous  equation  may  be  obtained  by  differentiating 
the  integral  equation  [see  Section  3.3.3]  for  I   for  normal  incidence  which, 
upon  adding  and  subtracting  itgl^  in  the  unknown,  becomes 


k^ 


{^-i^p,}  vz')  +  i^po  M^'> 


H^^^kjz-z'hdz'  =  ^  , 


z  >  0,  (1.8) 
where  the  superscript  x  indicates  the  quantity  is  evaluated  for  6  =  90°. 
Differentiating  both  sides  of  this  equation  with  respect  to  z  and  using 


109 


(4.12)    of   Chapter  2   gives 


^4-^to^v^')  -^4oV^'> 


|^H^^^k|z-z'|)dz'  =  0, 


z  >  0,        (1.9) 
Integrating  by  parts  and  utilizing  the  properties  of  the  finite  part 
yields 


^    E  PO^  PO 


|^H(l)(k|z-z'|)dz' 


=   -k^Ipo(O)    H^^\k|z|)    -   k^Fp 


3         rxJ.         .J. 


81 


r  {It  -  KJ  + 


PO 


8z'         E  PO  9z' 


H^-'-'*(k|z-z'  |)dz' 


0 


=  -k     Fp 


T  {It  -  It.}  +TZ4^ 


9z'         E  PO  9z 


l_^(z')    +  I^Q6(z')[H^^\k|z-z'I)dz' 


(1.10) 


Thus, 


w(z')    =   k'   Pf  1^  {I^E  -    ^to> 


l^(z')    +  k^    I^Q  6(z')  (1.11) 


since  the  8Ip  /9z'  term  vanishes.   This  is  a  solution  of  (1.7)  which  sat- 
isfies the  edge  condition.   A  complete  solution  of  (1.4)  is  then 


u„(z)  =  A  w(z)  +  sin6  v(z)  = 
n 


=  k  A  Pf 


( h  ^^E  -  ito>  >V(^> 


+  k^A  Ipo^Cz) 


+  k^  sine  {I®  -  Ip^}  l^(z)  +  k^  sine  IpQl^.(z)   (1.12) 


where  A  is  a  constant. 

It  is  interesting  to  note  the  behavior  of  u  as  the  argument  approaches 
infinity.   The  first  three  terms  in  (1.12)  vanish  leaving 
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Ujj(z)  ~  k  sine  IpQ(z)   as  z  -> 


(1.13) 


This  makes 


2,2   .2.   -ikz  cost 
u   =  ■=—  k  sin  0  e 
po   Zq 


(1.14) 


Substituting  the  expression  (1.3)  for  I   in  the  equation  for  u  , 
rt  po  n 

2~  +  k  I„,  gives 


"h  = 


dz 


H' 


2k   .  2.      -ikz  cos( 
u   =  - —  sin  9  e 
po   Zq 


(1.15) 


It  is  reassuring  to  obtain  the  same  result  in  each  of  these  two  ways. 

The  solution  for  u^.  must  satisfy  the  consistency  condition  in  order 

n 

to  obtain  a  unique  solution  for  I„.   From  Equation  (4.13)  of  Chapter  3, 

n 

the  consistency  condition  simply  states  that 


u„(z')  e^'^^'dz'  =  0. 

H. 


(1.16) 


Substituting  the  expression  (1.12)  in  the  above  equation  and  solving  for 
ikA  gives 


ikA  = 


i  ~-   cos^(e/2)  +  k  sine 
^0 


j.^6   ^e  ,   ikz. 


(1.17) 


i^  +  k 
^0 


0 


This  is  the  value  that  must  be  used  for  A  in  (1.12).   For  normal  incidence, 
ikA  =  1.   This  agrees  with  (4.19)  of  Chapter  3. 


Ill 


5.1.3  The  Solution  for  {l„  -  I  }  in  Terms  of  {l„  -  I__} 

n      po  El rV 

The  closed  form  solution  for  I,,  is  given  by  (5.14)  in  Chapter  3. 

n 

It  is  shown  that 


l^(z)    - 


U^(2')  g(z,z')dz', 


— oo  <  Z  <  °°, 


(1.18) 


where 


g(2,z')  = 


2ik 


ik  z-z'     ik(z+z') 
e   '     '  -  e   ^ 


(1.19) 


Substituting  (1.12)  into  (1.18)  yields 


^H  =  ^'^  \^'^y^^E-^io^    ^V^')  g(^.^')d^' 


+  k^A  I^q(O) 


6(z')  g(z,z')dz'  +  k  sine 


nl  -   4q}  g(z,z')dz' 


2 
+  k  sine 


I^Q  g(z,z')dz' 


(1.20) 


By  integrating  by  parts,  the  first  integral  above  becomes 


3     r.J.     .-L 


^'^f^K-^W   >M^'^  8U>-')d-'  = 


^^i-^to>l^^(^'^')'^^' 


0 


(1.21) 

The  second  integral  is  zero  since  g(z,0)  =  0.   The  third  integral  remains 
unchanged.   The  last  integral  becomes 


Ipo(z')  g(z,z')dz'  = 


Z„  sine  k 


(' 


-ikz  cose    ikz 


-e 


].       (1.22) 
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after  using  (1.5)  of  Chapter  4.   These  equalities  are  valid  for  z  >  0 
only.   Equation  (1.20)  becomes 


I^  =  -k^A 


{Ie  -  1^0^  h^   g(z,z')dz'  +  k  sine 


{1°  -  Ip^}  g(z,z')dz' 


,  2  r   -ikz  cosS   ikz-i 
+  —  [e  -  e    J 

^0 


(1.23) 


The  first  part  of  the  third  term  in  this  equation  is  just  I   .   Taking 
this  term  to  the  other  side  of  the  equation  and  letting  h(z,z')  = 

9z 


r  g(z,z')  gives 


H    po 


-k^A 


{Ig  -  Ip^}  h(z,z')dz'  +  k^  sine 


{i;  - 


I^q}  g(z,z')dz' 


2   ikz 


(1.24) 


where  A  is  the  constant  given  by  (1.17).   Each  of  the  integrals  on  the 
right-hand  side  of  (1.24)  is  approximated  using  the  numerical  results  of 
Chapter  4  for  {l„  -  !„„}  weighted  with  either  h(z,z')  or  g(z,z').   These 

hi  rU 

numerical  integrations  are  detailed  in  the  next  section. 


5.2   The  Numerical  Evaluation  of  {l^  -  I   } 

The  moment  method  numerical  results  of  Chapter  4  for  { Ig  "  IpQ^  are 

used  here  to  obtain  the  numerical  results  for  { I„  -  I^„}  by  applying 

n     po 

(1.24).   Two  integrals  have  to  be  evaluated  numerically.   From  (1.24), 
these  are 


{I^  -  I^q}  h(z,z')dz' 


(2.1) 
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and 


{I 


e   ^e 


Ip^}  g(z,z')dz' 


(2.2) 


where  the  upper  limit  is  set  to  L  =  19.95/k.  [see  (1.9)  of  Chapter  4] 
instead  of  infinity  because  the  integral  equation  for  {Ip  -  lpr^^  is 
truncated  at  z  =  L.   Making  the  change  of  variable  z'  =  y'/k  and  letting 
y  =  kz  in  (2.1)  and  (2.2),  one  obtains 

kL 


{I^  -  I^q}  h(y,y')dy' 


0 
kL 


ill  -   I^q}  g(y,y')dy' 


(2.3) 


(2.4) 


where 


g(y.y  )  =  2^  [^  -e     J . 


(2.5) 


and 


h(y,y')  =  1^  g(z,z')  =  k  1^  g(y,y') 


(2.6) 


It  is  convenient  to  break  h(y,y')  and  g(y,y')  into  two  parts,  one 
for  y'  <  y  and  the  other  for  y'  >  y.   These  expressions  become 


g(y,y')  = 


g.„(y.y') 


g>y(y,y') 


(2.7) 


and 


h(y,y')  =  k  4:71-  g(y,y')  =  ■'   ^ 


3y' 


h>y(y.y') 


y'  <  y 
y'  >  y 


(2.8) 


where 
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ly 


k  g<  (y,y')  =  -e  ^  sin(y'), 

k  g>y(y,y')  = 


iy 
-e    sin(y), 


and 


h<y(y.y') 


h,y(y,y')  = 


^y       /  ^^ 

-e    cos(y'), 


iy 
-i  e    sin(y). 


(2.9) 
(2.10) 
(2.11) 
(2.12) 


This  notation  is  used  throughout  this  section.   In  order  to  simplify  the 
numerical  evaluation  of  the  integrals  of  (2.1)  and  (2.2)  when  a  value  of 
y  is  given,  it  is  desirable  to  determine  the  number  of  the  subsection 
that  y  (=kz)  is  in.   If  this  number  is  called  K,  it  may  be  found  from  the 
equation 


K  = 


(y/H)  +  1 
2 


+  1 


(2.13) 


where  the  notation  [x]  represents  the  integer  portion  of  x.   Expressions 

for  the  integrals  (2.3)  and  (2.4)  for  both  the  hybrid  expansion  and  the 
all-pulse  expansion  are  obtained. 

The  hybrid  expansion  for  {Ig  -  ^priK  shown  in  Figure  4.1(a),  is 


r  -t 


0  <  y  <  H 


f  ""l  y 
{I  -  I   }(y)  =  \ 

^  ^^  *■  X       D.-H  <  y  <  D.+H    N  >  j  >  2. 

J       J  J        -   - 

The  all-pulse  expansion  for  {I  -  Ipg}.  shown  in  Figure  4.1(b),  is 


(2.14) 


(i^-ipoXy) 


1 

P 


0  <  y  <  H 


(2.15) 


D.-H  <  y  <  D.+H,    N  >^  j  ^2. 


where  the  x.'s  in  both  expressions  are  constants  and 

Dj  =  2(j-l)H 


(2.16) 
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,th 


is  the  midpoint  of  the  j    subsection.   The  expressions  for  K  and  D.  are 
used  throughout  this  section. 


5.2.1   The  Evaluation  of  the  Integral  Weighted  by  h(y,y') 
The  integral  (2.3)  may  be  written  in  the  form 


k|  f(y')  h^y(y,y')dy'  +  k 


f(y')  h   (y,y')dy' 


(2.17) 


where  N  (=200)  is  the  total  number  of  subsections,  kL  =  Dj^+H,  and  f(y') 
is  given  by  (2.14)  and  (2.15)  for  the  hybrid  expansion  and  for  the  all- 
pulse  expansion,  respectively.   The  numerical  evaluation  of  this  integral 
for  the  hybrid  expansion  is  aided  by  the  identities 


X 

r   1 


ly 


t  2  h^  (y,t)dt  =  -2  e  ^  Re[F2(x)], 


<y 


(2.18) 


X 

f   1 


t  2  h^  (y,t)dt  =  -2i  sin(y)  F^{x) 


0 
D.+H 

r  2 


ly  ^,-, 


h   (y,y')dy'  =  -2  e  ^  sin(H)  cos(D  ), 

y  'J 


D.-H 


D.-H 


D.+H 


and 


D.+H 

r  J  iD 

h   (y,y')dy'  =  -2i  sin(y)  sin(H)  e   j 


D.-H 
J 


(2.19) 


(2.20) 


h^  (y,y')dy'  =  -2  e^  sin|(y-D  +H)  cosi(y+D^-H) ,        (2.21) 


h^  (y,y')dy'  =  -2i  sin(y)  sini(Dj+H-y)  e^^CDj+H+y),      (2.22) 


(2.23) 


where  F„  is  given  by  (5.13)  of  Chapter  3.   The  evaluation  for  the  all- 


pulse  expansion  requires  the  additional  identities 
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ly 


h<  (y,y')dy'  =  -  e  -^  sin(x). 


and 


h^y(y,y')dy'  =  -21  sin(y)  sini(H-y) 


i(H-y)  e^*(«^y>, 


(2.24) 


(2.25) 


Substituting  the  hybrid  expansion  (2.14)  in  (2.3)  and  using  the  identities 
above  yields 


°N+» 


1 

2 


{I^  -  I^q}  h(y,y')dy'  =  x^  e^^  Re[F2(y)] 


N 


r   iD. 


+  i  sin(y)(x^[F  (H)-F  (y)]  +  sin(H)  I     x^  e""  j)  ,   0  <  y  <  H, 

j=2   J 


(2.26) 


and     D„+H 

N 


{I^  -  I^q}  h(y,y')dy'  =  e^^ 


K-1 


x^  Re[F2(H)] 


+  (K>3)  sin(H)  J     x^  cos(D.)  +  x^  sinf(y-D^+H)  cos|(y+D  -H) 
j=2   J      J     ^         K  K  ^ 


+  i  sin(y) 


4sin|(D^+H-y)  e^*(V«-^y>  +  (K<N--  ---   ^   ^-^^^ 


K 


(K<N-l)sin(H)  I      x.  e   j 
j=K+l  ^ 


y  >  H.       (2.27) 
In  the  above  formulas,  x     is  the  moment  method  hybrid  expansion  solution 
vector  for  {it  -  it^^^  that  is  obtained  in  Chapter  4.   The  corresponding 
formulas  for  the  all-pulse  expansion  (2.15)  are  obtained  using  (2.24)  and 
(2.25)  to  replace  the  terms  involving  the  Fresnel  integral.   The  logical 
expressions  preceding  the  summations  are  equal  to  one,  if  true,  and  equal 
to  zero,  otherwise. 
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5.2.2   The  Evaluation  of  the  Integral  Weighted  by  g(y.y') 
The  integral  (2.4)  may  be  written  in  the  form 

y 

k 
0 


f(y')  g<y(y,y')dy'  +  k 


f(y')  g>y(y,y')dy' 


(2.28) 


where  f(y')  is  given  by  (2.14)  for  the  hybrid  expansion  and  by  (2.15)  for 
the  all-pulse  expansion.   The  numerical  evaluation  of  this  integral  for 
the  hybrid  expansion  uses  the  identities 

X 

~2  r,    /•,,  ^^^^  =  _9  o"*-^  Tm  Ft   , 

2 


t  ^  g^y(y,t)dt  =  -2  e"^  Im[F,(x)], 


0 

X 

f   1 


t  2  g^  (y,t)dt  =  -2  sin(y)  F2(x), 


(2.29) 


(2.30) 


D.+H 
J 


ly 


g<  (y,y')dy'  =  -2  e  ^  sin(H)  sin(D  ), 


D.-H 


g<  (y,y')dy'  =  -2  e""^  sin|(y-D  +H)  sin|(y+D  -H)  , 


D.-H 


D.+H 


and 


g>  (y,y')dy'  =  -2  sin(y)  sini(D  +H-y)  e  ^^  j 

y 

D.+H 

f  J  iD 

k  g^  (y,y')dy'  =  -2  sin(y)  sin(H)  e  j 

D.-H 
3 


i|(D.+H+y) 


(2.31) 


(2.32) 


(2.33) 


(2.34) 


where  F   is  given  by  (5.13)  of  Chapter  3.   The  evaluation  for  the  all- 
pulse  expansion  uses  the  additional  identities 


g<y(y,y')dy'  =  -2  e^-^  sin^(x/2) 


(2.35) 
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and 


H 


g>    (y.y')dy'    =  -2   sin(y)    siriaCH-y)    e 


l|(H+y) 


(2.36) 


Substituting  the  hybrid  expansion  (2.14)  in  (2.4)  and  using  the  above 
identities  yields 


v« 


{1°  -  I°q}  g(y,y')dy'  =  x^  Im  [F2(y)]  e 


ly 


+  (x^  [F  (H)-F  (y)]  +  sin(H)  I     xj  e^  j)  sin(y) ,   0  <  y  <  H. 

j=2   ^ 

(2.37) 


and 


ill  -   I^q}  g(y,y')dy'  =  e 


K-1 


ly 


x^  Im  [F2(H)] 


+  (K>3)  sin(H)  )      x^  sin(D.)  +  x^  sin|(y-D^+H)  sin|(y+D  -H) 
~         •_2  2  2  1^  1^  i^ 


+  sin(y) 


N 
x^  sini(D  +H-y)  e^^^^K"^"^^^  +  (K<N-1)  sin(H)    I        x^  e^'^j 


y  >  H,     (2.38) 
In  the  above,  x  is  the  moment  method  hybrid  expansion  solution  vector 
for  {l„  -   Ipp,}  solved  for  in  Chapter  4.   The  corresponding  formulas  for 

lli  L\J 

the  all-pulse  expansion  of  (2.15)  are  obtained  using  (2.35)  and  (2.36) 
to  replace   the  terms  involving  the  Fresnel  integral. 


5.2.3  The  Numerical  Evaluation  of  the  Integrals  Used  to  Find  A,  the  Con- 
sistency Constant 
The  consistency  constant,  A,  is  given  in  (1.17)  in  terms  of  two 
Integrals,  each  of  which  may  be  written  in  the  form 


\l(^) 


;^e   ^e  ,  ikz  ,   1 


kL 


IpoXy)  e^'^dy 
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(2.39) 


0 


where  the  upper  limit  has  been  reduced  from  infinity  to  kL  because  the 
integral  equation  for  {I   -  IppK  Equation  (1.9)  of  Chapter  4,  is  trun- 
cated at  kL.   Substituting  the  hybrid  expansion  (2.14)  in  the  above  yields 
kL 


1 

2 


N 


r   iD, 


0 


{Ig  -  Ip^}  e'-^'  dy  =  x^  F2(H)  +  sin(H)  I     x\    e^^^j 


(2.40) 


The  corresponding  expression  using  the  all-pulse  expansion  is 
kL 


r 


{Ig  -  Ip^}  e^y  dy  =  xj  sin(H/2)  e 


i(H/2) 


N 


+  sin(H)  I     X?  e^  j 


0 


3  =  2 


2 


(2.41) 
The  closed  form  evaluation  of  (2.39)  may  be  carried  out  using  the  known 
analytic  solution  for  {Ip  -  ^vn^    ^°  ot)tain 


F  (6)  = 


j-^e    ^e  ,   ikz 


2i  (  1  -   cos(e/2) 


kZ 


0 


0 


( 


sin(e/2) 


(2.42) 


This  equation  is  used  in  the  next  section  to  check  the  accuracy  of  the 
numerical  evaluation. 


5.3  The  Numerical  Results  for  I 


H 


In  this  section  the  formulas  of  the  preceding  sections  are  used  to 

find  {I  -  I   }  from  {I„  -  I„^}.   Results  due  to  both  the  hybrid  expansion 
H     po  E     rU 

and  the  all-pulse  expansion  for  (Ig  "  Idq}  ^^^   compared  to  the  standard 
for  angles  of  incidence  6  =  45°,  90°,  and  135°.   The  standard  is  computed 
from  the  closed  form  results.   Only  the  moment  method  results  for  H  =  0.05, 
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kL  =  19.95  (200  subsections)  and  9  =  45°,  90°,  and  135°  are  used.   The 
current  for  9  =  180°  is  zero.   The  computer  program  used  to  generate 
these  results  is  given  in  Appendix  D. 

5.3.1  Accuracy  of  the  Numerical  Results  for  the  Consistency  Constant,  A 

In  this  section  the  accuracy  of  the  numerical  integration  (2.39)  for 
F   (0)  is  tabulated.   The  accuracy  of  the  numerical  evaluation  of  the 

iCJ_i 

consistency  constant  A,  also  referred  to  as  A^ ,  is  also  tabulated. 

Consider  the  expressions  for  F   (9)  in  (2.40)  and  (2.41).   It  is 
helpful  to  watch  the  convergence  of  the  series  on  the  right-hand  side  of 
both  equations  as  the  series  is  summed.   Study  of  this  progression  indi- 
cates that  the  real  part,  which  should  be  zero,  oscillates  around  zero 
when  the  hybrid  expansion  solution  for  ^  Ij-  "  IpQ^  ^s  used,  but  does  not 
when  the  all-pulse  expansion  solution  is  used.   This  seems  to  indicate 
that  the  hybrid  expansion  solution  gives  better  answers  than  the  all- 
pulse  expansion  solution  does.   Table  5.1  gives  the  accuracy  of  the  num- 
erical results  using  each  solution,  and  verifies  the  superiority  of  the 
hybrid  expansion  solution,  but  only  for  the  real  part.   Note  that  the 
imaginary  part,  the  most  important  part,  is  more  accurate  for  the  all- 
pulse  expansion  solution.   It  should  also  be  noted,  however,  that  the 
accuracy  of  the  magnitude  of  the  all-pulse  expansion  result  is  about  the 
same  as  that  of  the  hybrid  expansion  result.   The  phase  of  the  latter 
result  is  much  better  than  that  of  the  former  because  the  real  and 
imaginary  parts  of  the  result  for  the  hybrid  expansion  are  accurate  to 
about  the  same  number  of  decimal  places  while  those  for  the  all-pulse 
expansion  are  not.   For  these  reasons,  it  may  be  said  that  the  result  due 
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Table  5.1 
Accuracy  of  the  Numerical  Results  for  kZ„F,  (9) 


Decimal  places  of  accuracy 

Hybrid  expansion    All-pulse  expansion 
results  used  for    results  used  for 

E    PO  E    PO  Numerical 

value  of 

Real      Imag.     Real      Imag.         standard 


kZ„F,r45°)        2.5       2.5       1.5       3.2        0.0 
0  kL 


+10.3978 


kZQFj^^(90°)        2.5       2.3       1.3       3.0        0.0 


+10.8284 


kZQFj^^(135°)       3.5       2.3       1.1       3.1        0.0 


+11.3364 


kZ^Fj^^dSO")       1.9       1.9       1.1       1.8        0.0 


+12.0 


Notes:   1.   Decimal  places  =  -log, „ | s-a |  as  defined  in  Appendix  A. 

2.  All  standard  real  parts  are  zero,  so  the  numbers  under 
"Real"  are  =  -log^^laj. 

3.  Standard: 


^h^J^^    =  Zq 


,^e     e  .  iy ,     „.  1  -  cos(9/2) 
^^E  -  W^  ^^   =  2^   sin(e/2) 


0 
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to  the  hybrid  expansion  is  slightly  better  than  the  result  due  to  the 

all-pulse  expansion.   The  poor  accuracy  obtained  for  the  9  =  180°  case 

might  be  expected  because  in  Figure  4.6  {l„  -  Ip^,}  is  not  negligibly 

small  at  the  truncation  point  of  kL  =  19.95. 

The  accuracies  of  the  F,  (6)  described  above  become  important  when 

these  numbers  are  used  to  obtain  A^,  the  consistency  constant,  from 

Equation  (1.17).   Table  5.2  gives  the  decimal  places  of  accuracy  for 

ikA. .   The  two  cases  shown  are  for  6  =  45°  and  6  =  135°.   For  all  angles 

of  incidence,  the  imaginary  part  of  ikA.  is,  in  theory,  zero.   It  is 

seen  that  ikA.  obtained  from  the  hybrid  expansion  exhibits  accuracy  to 
o 

about  the  same  number  of  decimal  places  in  both  the  real  and  the  imagi- 
nary part,  while  that  for  the  all-pulse  expansion  does  not.   As  is  argued 
above  for  F   (6),  this  means  that  the  ikA  that  is  evaluated  from  the 
hybrid  expansion  is  slightly  better  than  that  evaluated  from  the  all- 
pulse  expansion.   In  conclusion,  it  may  be  said  that  the  numerical  for- 
mulas for  ikA  seem  to  converge  quite  well  to  the  actual  values. 
6 

5.3.2  Accuracy  of  the  Numerical  Results  for  {I   -  I   } 

The  numerical  results  for  {I„  -  I   }  are  plotted  along  with  the 

n     po 

Standard  in  Figures  5.1  through  5.3  for  the  angles  of  incidence  of  45°, 

90°,  and  135°,  respectively.   The  standard  or  "exact"  {l^^  -  I   }  is 

obtained  from  (5.14)  of  Chapter  3  and  (1.3).   For  each  case,  two  dashed 

curves  are  plotted  along  with  the  standard.   The  fine  dashed  curve  is  the 

{I   -  I   }  that  is  obtained  from  (1.24)  when  the  hybrid  expansion  moment 
H    po 

method  results  for  (ip  -  Ip^}  are  used.   The  coarse  dashed  curve  is  that 
obtained  when  the  all-pulse  numerical  results  are  used. 


Table  5.2 

Accuracy  of  the  Numerical  Results  for  ikAn*  the 
Consistency  Constant 
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Decimal  places  of  accuracy 


Hybrid  expansion 
results  used  for 


^E  -  ^PO 


Real 


Imag. 


All-pulse  expansion 
results  used  for 


^E  -  ^PO 


Real 


Imag. 


Numerical 
values  of 
standard 
ikAg 


ikA 


45* 


2.8 


3.0 


3.2 


1.7 


1.3066 


ikA. 


135" 


3.7 


3.2 


3.8 


2.1 


0.5412 


Notes:   1.   ikA   „  =  1.0  and  ikA^o-o  =  0.0  exactly, 
yu  ioU 


2.  All  standard  imaginary  parts  are  zero,  so  the  numbers  under 
"Imag."  are  =  -  log^^laj. 

3.  Standard: 


2  cos  (9/2)  +  sin  e(kZ  F  (e)/2i) 

IkA  =  ^^-^ =  /2  cos(e/2) 

1  +  (kZ  F^(TT/2)/2i) 
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For  all  three  angles  of  incidence,  the  finely  dashed  curve  is  in- 
distinguishable from  the  standard.   The  coarsely  dashed  curve,  on  the 
other  hand,  visibly  departs  from  the  standard  for  9  =  45°.   This  suggests 
that  the  hybrid  expansion  gives  better  answers  for  {I   -  I   }  than  the 
all-pulse  expansion  does. 

It  is  interesting  to  observe  the  edge  behavior  of  {I,,  -  I   }  when 
"  "  H    po 

the  two  expansions  for  { I„  -  1,,^}  are  used  in  (1.24).   Figures  5.4  and 

5.5  show  plots  of  the  edge  behavior  for  0  =  45°  and  90°,  respectively. 

Results  corresponding  to  the  hybrid  and  all-pulse  expansions  are  shown 

with  finely  and  coarsely  dashed  lines,  respectively.   It  is  clear  that 

the  hybrid  expansion  result  is  much  better  than  the  all-pulse  result  and 

that  the  former  result  has  z^  edge  behavior  whereas  the  latter  does 

not.   This  is  not  surprising  in  light  of  the  fact  that  the  hybrid  expan- 

sion  for  {Ip,  -  Ipp.)  has  z  ^  edge  behavior  whereas  the  all-pulse  expan- 

sion  does  not. 

It  is  desirable  to  compare  the  form  of  these  results  for  {l„  -  I   } 

n     po 

with  those  that  would  be  obtained  if  a  moment  method  solution  for  I  were 
found  directly.   As  the  graphs  of  Figures  5.1  through  5.5  show,  the  CSF 
method  produces  continuous  currents.   A  pulse  expansion  moment  method 
solution  of  an  E-field  integral  equation  would  not  have  produced  contin- 
uous currents.   For  essentially  the  work  of  solving  what  is  a  pulse 
expansion  moment  method  problem,  the  final  result  takes  the  form  of  a 
sine  expansion  function  except  with  the  important  difference  that  both 
the  phase  and  the  magnitude  vary  continuously.   In  all  probability,  the 
current  source-function  method  described  here  reproduces  a  local  phase 
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behavior  which  is  more  accurate  than  could  have  been  anticipated  in  the 
choice  of  basis  functions.   That  this  is  the  case  can  be  clearly  seen  by 
looking  at  the  phase  in  Figures  5.4  and  5.5,   This  contrasts  with  the 
moment  method  which  requires  that  an  initial  guess  be  made  in  the  selec- 
tion of  expansion  functions. 

Although  it  is  clear  from  the  graphs  of  Figures  5.1  through  5.5  that 
the  hybrid  expansion  gives  better  answers  than  does  the  all-pulse  solu- 
tion, it  is  not  clear  exactly  how  much  better  the  one  is  over  the  other. 

Table  5.3  compares  the  average  accuracies  of  Z„{I   -  I   }  for  the  hybrid 

U   n     po 

expansion  and  for  the  all-pulse  expansion.   Two  ranges  and  two  angles  of 
incidence  are  considered.   For  each  angle,  the  average  accuracy  of  a  group 
of  points  near  the  edge  and  of  an  overall  group  of  points  is  given.   Aver- 
ages are  tabulated  for  0  =  45°  and  6  =  90°.   The  averages  for  6  =  135° 
are  similar  to  those  for  6  =  90°. 

Generally  speaking,  Table  5.3  shows  that  the  results  for  the  hybrid 
expansion  are  about  one  digit  better  than  those  for  the  all-pulse  expan- 
sion.  This  means  that  if  the  hybrid  results  are  good  to  an  average  of  1%, 
then  the  all-pulse  results  are  good  to  only  10%.   The  results  for  6  =  90° 
are  better  than  those  for  6  =  45°  by  an  average  of  0.5  digit.   This  in- 
accuracy for  9  =  45°  is  clearly  visible  in  Figure  5.1.   Thus,  while  both 
the  hybrid  and  the  all-pulse  results  for  6  =  90°  and  6  =  135°  appear  to 
be  equally  accurate  in  the  graphs,  this  is  not  true.   The  hybrid  results 
are  always  more  accurate  than  the  all-pulse  results.   This  underscores 
the  need  for  using  a  hybrid  expansion  if  the  best  possible  results  are 
desired. 
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Table  5.3 

Accuracy  of  Z_{l„  -  I   }  for  6  =  45°  and  6  =  90' 
0   H    po 


=  45' 


Edge  Overall 


Hybrid       All-Pulse  Hybrid       All-Pulse 


Average  decimal  places  of  accuracy 


Real 

2.5 

1.3 

Imag. 

2.0 

1.3 

Mag. 

2.8 

1.3 

2.8  1.8 

2.7  1.8 

2.5  1.8 
Average  digits  of  accuracy 

Phase         2.7         1.9  3.3  1.3 

Average  decimal  places  of  accuracy 
6  =  90° 

3.3  2.4 

3.3  2.4 

3.1  3.4 
Average  digits  of  accuracy 

Phase         2.8         2.0  3.0  1.8 

Notes:   1.   "Hybrid"  and  "All-Pulse"  refer  to  the  expansion  used  for 

2.  "Edge"  refers  to  100  points  equally  spaced  between  0  and 
0.05  (see  Figures  5.4  and  5.5). 

3.  "Overall"  refers  to  399  points  equally  spaced  between  0.05 
and  19.95  (see  Figures  5.1,  5.2,  and  5.3). 

4.  The  standard  is  given  by  (5.14)  of  Chapter  3  and  (1.3). 


Real 

2.6 

1.4 

Imag. 

2.1 

1.4 

Mag. 

2.8 

1.5 
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5 .4   Conclusion 

The  results  shown  here  demonstrate  that  the  current  source-function 
technique  is  suitable  for  numerical  application.   Even  more  important  is 
the  fact  that  this  technique  gives  a  numerical  result  that  is  continuous. 
The  numerical  result  is  also  identically  equal  to  zero  outside  of  the 
domain  of  application.   The  technique,  although  relying  on  the  moment 
method  solution  of  an  integral  equation,  yields  a  result  for  the  current 
for  any  desired  argument  rather  than  at  a  finite  number  of  points.   The 
phase  of  the  CSF  solution  exhibits  a  good  approximation  to  the  actual 
local  behavior.   Accurate  detailed  information  about  the  behavior  of  the 
unknown  current  is  available  from  the  CSF  solution  by  simply  evaluating 
the  superposition  integral  at  a  larger  number  of  points.   This  does  not 
require  increasing  the  number  of  basis  functions  used  to  represent  the 
current  as  is  the  case  with  the  moment  method  solution  of  Pocklington's 
or  Hallen's  equations. 


i 
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6.   SCHWARTZ  DISTRIBUTION  THEORY  AND  THE  STRIP  PROBLEM 

This  chapter  applies  the  CSF  technique  to  the  problem  of  electro- 
magnetic scattering  of  an  incident  plane  wave  by  a  finite  width  perfectly 
conducting  strip.   Although  the  analytic  procedures  developed  for  the 
half-plane  problem  would  seem  to  be  applicable  to  this  problem  a  complete 
description  of  the  solution  is  still  to  be  found.   To  complete  the  proce- 
dure, an  even  solution  of  the  homogeneous  finite  part  integral  equation 
is  required.   The  CSF  technique  for  the  strip  problem  is  described  in 
terms  of  Schwartz  distribution  theory.   This  insures  that  each  procedural 
step  has  a  well-defined  meaning.   De  Jager  (1969,  p.  78)  comments  that 
(instead  of  using  the  finite  part)  supersonic  wing  theory  "can  be  developed 
in  a  much  shorter  and  more  elegant  way  by  employing  the  theory  of  distri- 
butions." 

Section  6.1  presents  the  formulation  of  the  strip  problem  and  results 
of  some  previous  studies.   Section  6.2  introduces  the  concepts  of  distri- 
bution theory  which  are  employed  in  the  CSF  approach  to  the  strip  problem. 
The  remaining  sections  present  the  results  obtained  so  far  in  applying  the 
CSF  technique  to  the  strip  problem. 

6.1  The  Strip  Problem 

The  problem  of  scattering  of  a  plane  wave  by  a  conducting  strip  is 
well-known.   The  geometry  for  the  strip  problem  is  the  same  as  that  for 
the  half-plane  problem,  given  in  Figure  2.1,  except  that  the  metal  extends 
from  -b  to  b,  i.e.,  -b  <  z  <  b.   The  exact  solution  has  been  found  by  con- 
sidering the  strip  as  a  limiting  case  of  an  elliptic  cylinder.   Unfortu- 
nately, this  solution  is  in  terms  of  an  infinite  series  (of  Mathieu 
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functions)  which  is  not  rapidly  convergent.   Descriptions  of  the  exact 
solution  to  the  strip  problem  are  given  by  McLachlan  (1947,  p.  358)  and 
Meixner  and  Schafke  (1954,  p.  373).   Calculations  of  Mathieu  function 
series  for  relatively  narrow  strips  have  been  performed  by  Strutt  (1931) 
and  Morse  and  Rubenstein  (1938).   Moullin  and  Phillips  (1952)  use  Morse 
and  Rubenstein 's  expansions  to  calculate  the  current  distribution  on  the 
strip.   Miles  (1949)  gives  the  exact  solutions  of  the  integral  equations 
for  the  current  on  the  strip  in  terms  of  an  infinite  series  of  Mathieu 
functions.   Dorr  (1952)  shows  that  the  E-polarization  strip  integral  equa- 
tion has  even  Mathieu  functions  as  eigenf unctions . 

The  E-  and  H-polarization  integral  equations  for  the  currents  I„(z) 

h 

and  I„(z)  on  the  strip  are,  respectively, 
11 

b 

-r    ,    ,  ^    „(1),,  I    I  In,  I    4   -ikz  cos6     II   .    /I  i\ 
Ig(z')  B^   ^(k|z-z' |)dz'  =  ^^  e         ,     \z\    <  b,   (1.1) 

-b  ° 

and  , 

D 


(  ^  +  k'  ) 

dz 


-r    /    ,^    „(l)/i  I    il\j  I    ^k   .  .   -ikz  cosO 
I  (z ' )  H '  ' (k I z-z ' I ) dz '  =  —  sine  e         , 

°  Izl  <  b.     (1.2) 


Cameron  (1966)  utilizes  variational  techniques  to  obtain  an  approximate 
solution  to  the  strip  integral  equation  for  the  E-polarization  and  develops 

integral  equations  for  the  even  and  odd  parts  of  the  solution.   Methods  for 

_i 
handling  the  t  ^  edge  singularities  in  (1.1)  in  numerical  solutions  are 

given  by  Shafai  (1971),  Dmitriev  and  Zakhorov  (1967),  and  Bolomey  (1974), 

among  others.   Approximate  solutions  of  the  strip  problem  for  narrow  strips 

subjected  to  a  normally  incident  plane  wave  have  been  obtained  by  Sommerfeld 

(1964,  pp.  273-284)  and  Born  and  Wolf  (1970,  pp.  589-590).   For  the  narrow 
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strip  and  the  case  of  normal  incidence,  the  H-polarization  current  I„(z) 

£1 

has  z-dependence  of  the  form 

Ijj(z)  =  c^(b^  -  z^)*,  (1.3) 

and  the  E-polarization  current  Ip(z)  has  z-dependence  of  the  form 

Ig(z)  =  C2(b^  -  z^)"^,  (1.4) 

where  c,  and  c„  are  constants.   This  solution  for  I„(z)  may  be  obtained  by 

i  /  Ej 

approximating  the  Hankel  function  kernel  in  (1.1)  by  a  logarithmic  kernel. 

The  integral  equation 

1 

r 

f(x')  «,n|x-x'  |dx'  =  1  (1.5) 

-1 

2  -- 
has  the  exact  solution  f(x)  =  -  t— ;^ —  . 

Solution  techniques  for  singular  integral  equations  with  logarithmic 
and/or  x~  kernels  have  been  given  by  Latta  (1956),  Erdogan  (1969),  Kanwal 
(1971),  Muskhelishvili  (1958),  and  Muller  (1967),  among  others.   The  solu- 
tion of  the  integral  equation 
b 


f 


P(t')  «,nlt-t'|dt'  =  f(t)  +  constant  (1.6) 


for  an  elasticity  problem  is  given  by  Muskhelishvili  (1958,  pp.  305-309) 
Both  sides  of  (1.6)  are  differentiated  to  obtain  the  solution.   Kanwal 
(1971,  p.  210)  shows  that  a  solution  of 

1 

'^^^-dy  =  0  (1.7) 

_  x-y 

-1 
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2  -- 
is  g(x)  =  C(l  -  X  )  ^,  where  C  is  any  constant.   This  same  solution  is 

also  obtained  when  both  sides  of  (1.5)  are  differentiated. 

An  important  consideration  in  a  finite  problem  is  symmetry.   The 

solution  can  always  be  expressed  as  the  sum  of  an  even  part  and  an  odd 

part.   Consider  the  equation 
b 
f(x)  H^^^k|x-y|)dx  =  g(y),      -b  <  y  <  b .         (1.8) 
-b 

It  may  be  shown  that  if  g(y)  is  odd,  i.e.,  g(y)  =  -  g(-y) ,  then  f(x)  is 
also  odd.   If  g(y)  is  even,  i.e.,  g(y)  =  g(-y),  then  f(x)  is  even.   The 
derivative  of  an  odd  function  is  an  even  function  and  that  of  an  even 
function  is  an  odd  function.   These  important  properties  are  very  useful. 

6.2   Pertinent  Concepts  in  Schwartz  Distribution  Theory 

Schwartz's  theory  of  distributions  provides  a  rigorous  justification 
for  a  number  of  manipulations  that  are  otherwise  unjustifiable,  e.g.,  dif- 
ferentiating the  unit  step  function  to  obtain  the  delta  function.   Opera- 
tions of  this  type  are  only  a  small  part  of  the  total  theory.   Schwartz 
(1966a,  pp.  38-44)  utilized  Hadamard's  finite  part  in  the  development  of 
the  theory  of  distributions  to  define  certain  integrals  which  otherwise 
would  not  be  defined.   In  recent  years,  several  excellent  textbooks  on  dis- 
tribution theory  have  appeared,  for  example,  Zemanian  (1965),  Schwartz 
(1966b),  Gel'fand  and  Shilov  (1964),  Arsac  (1966),  Jones  (1966),  and 
Antosik,  Mikusiiiski,  and  Sikorski  (1973),  among  others.   The  discussion 
here  will  be  directed  toward  the  solution  of  the  problem  at  hand  and  will 
therefore  be  quite  limited.   The  theory  of  distributions  provides  the 
operations  that  are  required  to  handle  the  strip  problem. 
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6.2.1  The  Definition  of  a  Distribution 

There  are  two  equivalent  ways  in  which  a  distribution  may  be  defined. 
First,  a  distribution  may  be  defined  to  be  a  continuous  linear  functional 
f  on  a  space  3   of  testing  functions  cp(x) .   This  approach  is  used  by 
Schwartz  (1966a),  Zemanian  (1965),  and  Gel ' f and  and  Shilov  (1964).   Second, 
a  distribution  may  be  defined  as  a  limit  of  equivalent  fundamental  sequences 
of  continuous  functions.   The  sequential  approach  to  the  development  of  the 
theory  of  distributions  is  presented  by  Jones  (1966)  and  Antosik,  Mikusinski, 
and  Sikorski  (1973).   To  each  distribution  in  the  functional  approach,  there 
is  one  corresponding  distribution  in  the  sequential  approach.   The  func- 
tional approach  to  distribution  theory  is  used  here  because  it  is  the 
approach  that  is  most  often  used  and  therefore  possesses  a  greater  body  of 
literature. 

Definition:   A  distribution  is  a  continuous  linear  functional  on  the  space  3. 

For  our  purposes,  the  space  of  testing  functions  Jj   consists  of  all  com- 
plex-valued functions  cp(t)  of  a  real  variable  t  that  possess  derivatives 
of  all  orders  (i.e. ,  are  infinitely  smooth)  and  vanish  outside  of  some 
finite  interval.   A  functional  f  on  ^  is  a  rule  that  assigns  a  complex  num- 
ber (f,cp)  to  every  member  of  3-      (f>cp)  is  sometimes  written  as  f(cp).   A 
continuous  linear  functional  f  on  .^  possesses 

(1)  linearity,  that  is,  for  any  two  testing  functions  cp,  and  cp„  in  3 
and  any  complex  number  a 


<f,cp£<-cp2)  =  <f.cp]^>  +  <f.92> 

<f,acpj^>  =  a<f,cpj^)  .  (2.1) 
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oo 

(2)    continuity,    that   is,    for   any   sequence   {cp    (t)}    _^    in  3  such   that 

{cpy>^^  ^  cp  in  A 
then 

lira    |<f,cp>    -   (f,cpy>  I    ^  0.  (2.2) 

The  space  of  all  such  distributions  is  denoted  by  ^'  . 

When  f(t)  is  locally  integrable,  a  distribution  f  corresponding  to 
f(t)  can  be  defined  through  the  convergent  integral 

OO 

f 


<f,cp>: 


f(t)cp(t)dt.  (2.3) 


Distributions  corresponding  to  locally  integrable  functions  are  called 
regular  distributions.   Although  distributions  do  not  possess  values  at 
points,  regular  distributions  may  be  associated  with  ordinary  functions 
which  do  have  point  values.   Zemanian  (1965,  pp.  6-9)  shows  that  "a  regular 
distribution  determines  the  function  producing  it  almost  everywhere."   He 
concludes  that  "without  ambiguity  we  may  consider  an  equivalence  class  of 
functions  and  its  regular  distribution  as  being  the  same  entity."   For  this 
reason,  both  the  regular  distribution  and  the  function  that  generates  it 
will,  at  times,  be  referred  to  as  "the"  distribution. 

All  distributions  that  are  not  regular  are  called  singular  distribu- 
tions.  One  example  of  a  singular  distribution  is  the  delta  functional 
which  assigns  the  value 

<6,cp)  =  cp(0)  (2.4) 

to  every  cpe.^.  If  the  integral  (2.3)  is  divergent,  a  singular  distribution 
may  often  be  defined  with  the  aid  of  Hadamard's  finite  part.   In  such 
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cases,  f  is  called  a  pseudof unction  and  is  identified  with  the  letters  Pf. 
A  distribution  corresponding  to  Pf[f]  can  be  defined  through  the  finite 
part  integral 


<Pf[f],cp>    =   Fp 


f(t)cp(t)dt.  (2.5) 


At  times,  both  a  singular  distribution  and  its  corresponding  pseudof unction 
will  be  referred  to  as  "the"  distribution.   An  example  of  a  pseudofunction 


is 


Pf  t  ^  l^(t).  (2.6) 

The  distribution  corresponding  to  this  pseudofunction  is  assigned  the  value 


3  r     ^ 


t  ^  cp(t)dt  (2.7) 


0 


<Pf  t  ^  l^(t),  cp(t)>  =  Fp 

for  every  cpt^.  Instead  of  introducing  the  finite  part  concept  as  Schwartz 
does,  some  authors,  notably  Gel' f and  and  Shilov,  use   a  procedure  called 
regularization  to  treat  the  divergent  integrals  that  occur.   This  regular- 
ization  is  generally  equivalent  to  taking  the  finite  part. 

The  concept  of  a  distribution  can  easily  be  extended  to  the  n-dimen- 
sional  case  by  introducing  testing  functions  cp  of  n  real  variables  that 
are  infinitely  smooth  and  that  vanish  outside  of  some  bounded  domain  of 
the  n-dimensional  Euclidean  space  /p  . 

Definition:   A  distribution  on  /^   is  a  continuous  linear  functional  on  the 
space  ^   of  testing  functions  on  f^    . 

A  locally  integrable  function  f (O  generates  a  distribution  on  /p   through 
the  multiple  integral 
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<f,   cp>    =  f(t)cp(t)dt,  cp  €  ^, 


(2.8) 

n 


/? 


where    {t)   =    (t^, t^, • • • , t^) , 


6.2.2   The  Differentiation  of  a  Distribution 

Every  distribution  has  derivatives  of  all  orders.   This  is  based  on 
the  fact  that  (f,  dcp/dt>  is  meaningful  even  if  df/dt  does  not  exist.   It 
is  this  observation  that  allows  distribution  theory  to  generalize  the  de- 
rivative.  In  fact,  every  distribution  may  be  expressed  as  a  finite  order 
distributional  derivative  of  an  ordinary  (locally  integrable)  function. 

The  first  derivative  df/dt  of  a  distribution  f  is  defined  as  the  func- 
tional on  3   given  by 

(df/dt,   cp>   =  -  (f,    dcp/dt>,      cp  e  A  (2.9) 

This  is  a  convenient  definition  because  dcp/dt  itself  is  an  infinitely  dif- 
ferentiable  testing  function  of  finite  support  belonging  to  3.      First  order 
partial  derivatives  8f/8t.,  i=l,2,-'-,n,  of  any  distribution  f  defined 
over  f^     are  the  functionals  on  3   given  by 

<8f/8t.,  cp)  =  -  <f,  39/9t^),   cp  €  j^.  (2.10) 

As  an  example  of  the  procedures  involved  in  distributional  differen- 

p    n  1  Y^ 

tiation,  consider  the  distributional  derivative  of  g(t)  =  (b  -t  )  ^1  ,  (t) . 

-D 

The  ordinary  derivative  is 


(2.11) 


ro 

t      >  b 

d8   _   . 
dt 

.t(b^-t2)- 

t     =  b 
t     <   b 

The  distributional  derivative  is  found  by  applying  (2.9), 
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<dg/dt,    cp>    =  -   <g,    dcp/dt>    =  -   lim 


b-e 

(b^-t^)-*  ^  dt   = 
at 

-(b-e) 


=   lim     ■ 
e^0+ 


b-e 
t(b^-t^)"2^dt   -    (2bE)"^    [cp(b)    -  cp(-b)] 
-(b-e) 


I   = 


=   Fp 


2      ?    — 

t(b     -t     )     2cpdt 


2      2.-4,,b 


<Pf    [t(b   -t^)    ^]i:,  (t),    cp) 


-b 


The  distributional  derivative  of  g  is  the  pseudofunction 


(2.12) 


^=  Pf  [t(b2-t2)-3]  ib^(t) 


(2.13) 


The  sequential  approach  to  the  theory  of  distributions  handles  the 
definition  of  the  derivative  of  g  differently.   A  delta  sequence  is  a 
sequence  that  converges  to  the  delta  function,  i.e. , 


6(x)  =  [6^(x)] 


(2.14) 


where  the  square  brackets  [  ]  denote  the  limiting  process.   If  the  sequence 

g  (x)  =  6  (x)  *  g(x)  [6  (x)  convolved  with  g(x)]  converges  to  g(x),  then 
°n  n°n 

dg/dx  is  defined  by  the  limiting  sequence 


dx 


dg^(x) 


dx 


(2.15) 


A  graph  of  dg  /dx  for  fixed  n  gives  an  approximation  of  the  distribution. 
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6.2.3   The  Convolution  of  Distributions 

For  ordinary  functions  f(x)  and  g(x)  defined  for  -oo  <  x  <  «=,  the 
expression 


(  f *g  )(x)  = 


f(0  g(x-Od?  (2.16) 


is  called  the  convolution  of  f  and  g.   The  integral  does  not  always  exist. 
If  one  of  the  functions  f  or  g  has  compact  support  and  therefore  vanishes 
outside  of  some  finite  interval,  then  f *g  exists  for  almost  all  values  of 

X. 

In  the  development  of  the  convolution  of  two  distributions,  the  con- 
cept of  the  direct  product  of  the  distributions  must  be  introduced.   If 
cp(t,  x)  is  a  two-dimensional  testing  function  in  ^         and  if  f (t)  and  g(T) 
belong  to  the  distribution  spaces  M'    and  ^\    respectively,  then  the  direct 
product  f(t)(8)g(T)  is  a  distribution  in  3'        defined  by 

t  jT 
<f(t)(g.g(T),  cp(t,  T)>E<f(t),  <g(T),  cp(t,  T)>>.  (2.17) 

The  direct  product  is  commutative  and  associative  for  all  distributions  of 
interest  here. 

The  rule  that  defines  the  convolution  h(t)  =  f  *  g  of  two  distributions 
f  and  g  is  given  by 

<f  Ag,  cp)  =  <f(t)®g(T),  cp(t+T)) 

E  <f(t),  <g(T),  9(t+x)>).  (2.18) 

A  meaning  can  be  assigned  to  the  right-hand  side  if  either  f  or  g  has 
bounded  support.   If  g  is  taken  to  be  the  distribution  with  bounded  support. 
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this  requirement  insures  that  <g(T),  cp(t+x)>  is  itself  a  testing  function 
in  ^. 

Since  the  current  on  a  finite  body  is  of  finite  support,  the  convolu- 
tion of  the  current  with  another  function  is  usually  defined.   The  convolu- 
tion of  distributions  can  be  defined  under  other  conditions,  but  these  are 
beyond  the  scope  of  the  present  discussion.   Since  the  direct  product  is 
commutative,  it  follows  that  the  convolution  of  two  distributions  is  com- 
mutative, that  is, 

<f  *g,  cp>  =  <8*  f.  9>.    96^.  (2.19) 

Convolution  is  not  in  general  associative,  but  it  is  associative  if  the 
supports  of  all  of  the  distributions,  except  for  at  most  one  of  them,  are 
bounded.   That  is, 

(f  *  (  g*h  ),  cp>  =  <(  f  A  g  )  *h,  cp>,    cp  €  .^,         (2.20) 

if  the  supports  of  at  least  two  of  the  distributions  f,  g,  and  h  are 
bounded. 

The  delta  functional  and  its  derivatives  are  very  important  in  con- 
volution.  They  exhibit  the  properties 


and 


<  6  *  f ,  cp)  =  <  f ,  cp)  , 
<6'  *f,  cp)  =  <f',  cp>,  (2.21) 


<6^"^*f,  cp>  =  <f^''\  cp),    cp  €  ^. 


The  first  derivative  of  the  distribution  f  is  the  same  as  the  convolution 
of  f  with  the  first  derivative  of  6.   The  derivative  of  the  convolution 
obeys  the  property  that 
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D(  f  *  g  )  =  (Df)  *  g  =  f  *  (Dg)  (2.22) 

where  D  =  d/dx.   This  is  easily  proved  by  using  associativity  and  the  fact 
that  Dh  =  6'  i<h,    that  is, 

D(  fAg  )  =  6'*(  f*g  )  =  (  6'*f  )*g=  f*(  6'*g  ).   (2.23) 

This  is  true  as  long  as  either  f  or  g  is  of  finite  support. 

Properties  of  various  distributions  and  their  convolution  with  other 
distributions  are  given  by  De  Jager  (1970),  Bremermann  et  al.  (1967), 
De  Jager  (1969),  Beltrami  and  Wohlers  (1966),  and  Shilov  (1968),  among 
others. 

6.2.4   Convolution  Equations 

Many  of  the  differential,  integral  and  integro-differential  equations 
useful  in  solving  electromagnetics  problems  may  be  written  in  the  convolu- 
tion form 

h*y  =  f.  (2.24) 

Here,  h  and  f  are  given  distributions  and  y  is  an  unknown  distribution. 
The  equation  is  a  differential  equation  when  h  is  a  linear  combination  of 
the  derivatives  of  the  delta  functional.   It  is  an  integral  equation  when 
h  has  finite  or  infinite,  but  not  vanishing,  support.   It  may  have  a  unique 
solution  or  no  solution,  or  even  an  infinite  number  of  solutions.   The 
solution  of  (2.24)  must  satisfy 

<h*y,  cp)  =  <f,  cp>  (2.25) 

for  every  cp€.^.  For  the  strip  problem  integral  equation,  the  support  of 
the  solution  y  is  known.   This  restricts  the  possible  classes  of  solutions 
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to  those  having  the  proper  support. 

An  important  concept  in  solving  distributional  differential  equations 
is  that  of  the  fundamental  solution.   Consider  the  equation 

Xy  =  f  (2.26) 

where  J!  is  any  linear  differential  operator  with  constant  coefficients, 
that  is ,  i!  is  of  the  form 

£  =  a  ^—  +  ...  +  a„.  (2.27) 

n  ,  n  0 

dz 

Equation  (2.26)  may  also  be  written  as 

(£6)  *y  =  f.  (2.28) 

A  fundamental  solution  for  this  equation,  denoted  by  E(z\c,)   with  pole  at 
t,    satisfies  the  equation 

£E  =  6(z-?).  (2.29) 

Boundary  conditions  per  se  are  not  required.   A  distribution  E  is  a  solu- 
tion of  this  equation  if  and  only  if 

<£E,  cp)  =  <E,  £*cp)  =  cp(c)  (2.30) 

for  every  CD  (Ej^.  £*  is  the  adjoint  of  £.   Any  two  fundamental  solutions  for 
£  differ  by  a  solution  of  the  homogeneous  equation  £v  =  0.   When  a  funda- 
mental solution  E  is  known,  a  solution  of  (2.26)  can  be  written  as  the 
convolution 

y  =  f  AE.  (2.31) 

The  convolution  equation  for  the  current  source-function  is  obtained  in 
the  next  section. 
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6, 3  Maxwell's  Equations  and  the  Convolution  Equation  for  the  Current 
Source-Function 
The  fundamental  relationship  between  the  scattered  electric  field 

g 

E^  and  the  induced  current  J^  is,  from  (1.10)  of  Chapter  3, 

V^E^  +  k^E^  =  -  -  [VV-J  +  k^  J]  E  -  ^  U.  (3.1) 

-       -       V      -       ~       V- 

Here,  E  is  the  electric  field,  J_  is  the  current,  and  U  is  the  vector  cur- 
rent source-function.   A  treatment  of  Maxwell's  equations  in  a  space  of 
distributions  is  given  by  Schmidt  (1968) . 

Let  cp(x,y,z)  be  a  three-dimensional  testing  function  with  cp€^. 
Then  the  equation 

(V^  +  k^)$  =  -  6  (3.2) 


must  satisfy 


<$,  (V^+k^)cp)  =  -  cp(0,0,0)  (3.3) 


for  all  96.^.   Here,  $  is  a  fundamental  solution  for  the  operator 
(V^  +  k^)  and  is 

ikR 
$  =  f^  (3.4) 

2    2    2    2 
where  R  =  x  +  y  +  z  .   This  result  is  given,  for  example,  by  Stakgold 

(1967,  Volume  II,  pp.  53-55).   Since  U  has  finite  support,  the  solution 

s 
for  E  may  be  written 

-  -  (  U*  <!>  )  =  [(V^  +  k^)E^]  *  $  =  E^*  (V^  +  k^)<I>  =  -  E  ^  *  6  =  -  E^(x,y,z) 

V     "  ~  ' 

<E^(x,y,z),  cp)  =  ^  <(  U**  ),  cp>  (3.5) 
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for  every  cp6^. 

For  E-  polarization  in  the  strip  problem,  the  current  takes  the  form 


Jg  =  Ig(z)l_^(z)  6(x)  y 


(3.6) 


and  the  current  source-function  becomes 


<U„,    cp>    =   <VV-J     +  k^J    ,    cp>    =  k^   <J    ,   cp> 


(3.7) 


For  the  H-polarization,  the  current  may  be  written  as 


J^   =  I^(z)l_^(z)  6(x)  z  =  ^^z. 


(3.8) 


The  current  source-function  becomes 

(\,   cp)  =  <VV-Jj^  +  k^Jj^,  cp) 

2 


< 


g^^X+     (-^+k       )^y    Z,     cp) 


dz 


(3.9) 


Now 


2  2 

<(  ^+  k^  )  i?^,  cp)  =  <Iy(z)l^^(z),  (  ^+  k^  )  cp(0,y,z))  = 
8z  3z 


-b 


a       2 
Iy(z)(  -^  +  k  )cpdz 

3z 


dl 


H  d 


dz    dz 


^  dz  +  k' 


I„  cp  dz  = 


-b 


-b 


f   d      2 
=  Fp   (  ^  +  k^  )^H*^^^  "P"^^ 

-b   '^^ 


(3.10) 


Therefore, 

2  2 

(  -^+  k^  )  $      =   6(x)  l^t^(z)(  Pf  ^+  k^)  1^(2)  =  ^(x)  u(z)    (3.11) 
9z  dz 
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where  the  subscript  H  has  been  left  off  u   for  convenience.   This  defines 

n 

what  will  also  be  called  the  current  source-function  for  the  H-polarized 

2 
H  2      2 

case.   The  use  of  the  notation  Pf  — tt   I„  means  that  d  I„/dz   is  to  be 

,  Z   H  n 

dz 

taken  as  a  distribution,  per  se. 

Using  the  property  that  6(x)*f(x)  =  f(x)  and  substituting  (3.7)  in 
(3.5)  gives 

eJ(x,z)  =   -  -^   {lg(z)l^^(z)}*H^^^k[x2+z2]*) 


Ig(z')  H^^\k[x^+(z-z')^]2)dz'.    (3.12) 


-b 

For  the  H-polarization,  after  using  the  same  property  and  substituting 

(3.11)  in  (3.5),  the  tangential  (z  component)  scattered  field  becomes 

b 


^z(-'^)  =  -  ^ 


u(z')  Hj^^(k[x^+(z-z')^]2)dz'.        (3.13) 


-b 
The  total  tangential  fields,  for  the  E-  and  H-polarization,  respectively. 


are 


and 


where 


E*^(x,z)  =  E^(x,z)  +  E^(x,z),  (3.14a) 


E^(x,z)  =  E^(x,z)  +  E^(x,z)  (3.14b) 

z         z         z 


and 


i  _  -ik(z  cosO  +  X  sin6)  ("^  IS  ■) 

y  ~  ^ 

„i     .  „   -ik(z  cosG  +  X  sin9)  .„  ncu\ 

E  =  sine  e    ^  .  (3.15b) 

z 

By  the  boundary  condition,  the  total  tangential  electric  field  on  the  con- 
ducting strip  must  vanish.   Introducing  the  notation 


a(x)    x6s  (-0      x6s 
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a  (x)  =  ^  and    a  (x)  =  \  (3.16) 

^      ^0       X  i   s  ^   a(x)    X  ^  s 

where  s  denotes  the  collection  of  points  not  in  s  =  [-b,  b],  the  total 
electric  field  along  x  =  0  may  be  expressed  as 

E^(0,z)  =  Og  +  fg(z)  (3.17) 

where  s  =  [-b,  b]  and  f  is  an  unknown  function  equal  to  the  total  field 
along  X  =  0  and  in  §.   The  convolution  equations  for  the  E-  and  H- 
polarizations ,  respectively,  become 

T        /    \  J.  tt(1)  /i  I     I  \  ^      /      -ikz   cos6         -        f    \    \  fiTQ\ 

and 

u^^j^(z)  *H^^)(k|zl)    =  ^   (   sine   e-^^^   ^°^^  -f^^^(z)    ).       (3.19) 

The  exact  solution  of  the  E-polarization  equation  for  Ig(z)  may  be 
expressed  in  terms  of  a  series  of  Mathieu  functions.   Various  approximate 
methods  of  solution  have  been  discussed  in  the  literature.   The  equation 
for  u(z),  however,  contains  a  pseudofunction  and  therefore  can  not  be 
solved  directly  by  expanding  the  unknown  in  a  set  of  basis  functions.   The 
left  side  of  this  equation  can  also  be  written  as 

[(  6"  +  k^6  )  *  (I^l^j^)]  *H^^^k|z|).  (3.20) 

This  follows  from  (2.21)  and  (3.9).   The  next  section  details  an  unsuccess- 
ful attempt  to  solve  (3.19)  for  u(z). 


150 


6.4   An  Attempt  to  Solve  for  u(z) 

Consider  the  convolution  equation 


1    +  f. 

S      i 


(4.1) 


where  y  and  f  are  unknown  distributions  with  support  s  =  [-b,b]  and  §, 
respectively.   Assuming  that  1  +  f   corresponds  to  a  once-dif ferentiable 

o        S 

function,  then 


^  (1  +  f^)  =  0  +  f ! 
dz  ^  s    §^  s  § 


(4.2) 


where  the  prime  represents  a  new  function  (or  distribution)  which  corre- 


sponds to  the  derivative  of  f  .   Since 


^(y^*H(l)(k|z|)} 


dy. 


dz 


*H^^^k|z|), 


(4.3) 


dy. 


any  constant  times  the  pseudof unction  -; —  may  be  added  to  the  unknown  in 

dz 

the  convolution  equation  without  affecting  the  right-hand  side  in  the 
interval  [-b,b].   This  is  seen  to  be  equivalent  to  the  case  when  the  homo- 
geneous finite  part  integral  equation  is  solved  by  differentiating  a 
locally  integrable  solution  of  the  ordinary  integral  equation.   The  follow- 
ing discussion  is  based  on  this  equivalence. 

The  integral  equation  for  u(z)  may  be  written  as 

b 

Fp 


-b 


u(z')  H^^\k|z-z'|)dz'  =  1^  sine  e  ^^^  ''°^^  zSs  =  [-b,b].  (4.4) 
^  ^0 


A  solution  for  u(z)  of  this  finite  part  integral  equation  satisfies  the 
distributional  convolution  equation  of  Equation  (3.19)  which  is 
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,   ,  .   ,,(1),,  11.    .    ,4k.r  .  Q   -ikz  cose       ,  ,,    .        //  cN 
<Ug(z)*H^  '(k|z|),  cp>  =  (—[sine  e  -  f  g^H^^"*  ^  '  "^ '*  '       ^^"^^ 

for  all  cp€^.   Here,  the  emphasis  is  placed  on  trying  to  solve  the  finite 
part  integral  equation  (4.4)  and  hence  obtain  a  solution  of  (4.5). 

It  would  seem  reasonable  to  follow  the  same  approach  to  solving  (4.4) 
which  proved  successful  in  the  case  of  the  half-plane  problem.   Thus  a 
solution  of  the  form 

u(z)  =  sine  v(z)  +  A  w  (z)  +  B  w  (z)  (4.6) 

is  desired  where  v(z)  is  the  solution  of  the  ordinary  integral  equation 
b 

and  w  and  w  are,  respectively,  even  and  odd  (probably)  pseudofunction 
solutions  of  the  homogeneous  finite  part  integral  equation 

b 

Fp 


w(z')  H^-'-^(klz-z'|)dz'  =0,       z  €  s,      (4.8) 


-b 


subject  to  the  edge  condition  w(z)  =  0(  z  ^  )  as  z  ->  ±b.   An  odd  solution 

w  (z)  is  easily  found,  but  thus  far,  an  even  solution  w  (z)  with  the  pro- 
o  ^ 

per  edge  behavior  has  not  been  determined. 

To  determine  a  solution  of  (4.8),  consider  the  integral  equation 

b 

y(z')  H^^^(k|z-z'|)dz'  =  e"^*"^^  -  fg(z),   -  -  <  z  <  -  ,   (4.9) 

-b 

*~ik.3.z 
where  a  =  cos6  and  f^(z)  is  defined  by  (3.17).   Rewriting  the  e 

s 

factor  on  the  right-hand  side  as  [cos(kaz)  -  i  sin(kaz)]  and  using  the 
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symmetry  properties  that  are  discussed  in  the  last  paragraph  of  Section 

6.1,  one  finds  that  the  solution  y(z')  of  (4.9)  can  be  written  as  the  sum 

of  an  even  part  y  (z')  and  an  odd  part  y  (z').   The  integral  equations  for 
y  (z')  and  y  (z')  are,  respectively, 

) 

y^(z')  H^-'"^(k|z-z'l)dz'  =  cos(kaz),      z  €  s,       (4.10a) 
-b 

and 


y  (z')  Hq  -*(k|z-z' |)dz'  =  sin(kaz)  ,      z  6  s.      (4.10b) 
-b 

Applying  the  operator  L  =  (  -: i-  ika)  to  (4.9)  yields 


b 

Fp 


{Ly(z')}  H|^^^(k|z-z'|)dz'  =  0^  -  Lfg,    -  co  <  z  <  «.   (4.11) 


-b 

A  solution  to  the  homogeneous  finite  part  integral  equation  becomes 

w(z)  =  Ly  =  (  ^  +  ika)  (y^  -  i  y^)  = 

=  -^  y  +  ka  y  +  i(  ka  y  -^y).  (4.12) 

dz   e       o  e   dz  •'o 

At  first,  it  may  appear  as  if  w  has  an  even  and  an  odd  part.   It  may  be 
shown,  however,  that  the  even  part  is  identically  zero.   To  do  this  consider 
the  case  when  a  =  0  in  (4.10a)  and  (4.9)  (the  normal  incidence  case).   The 
right-hand  sides  of  both  equations  are  unity.   Since  the  edge  behavior  of 
y(z)  for  this  special  case  is  z  ^,  it  follows  that  y  (z)  has  the  same  edge 
behavior  for  a  £  [-1,1].   Differentiating  (4.10b)  with  respect  to  z,  using 
(4.12)  of  Chapter  2,  integrating  by  parts,  and  assuming  that  y  (±b)  =  0, 
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one  obtains 

b 


dy    ,  , 

^  H|^  ''(k|z-z'|)dz'  =  ka  cos(kaz),     z€s.         (4.13) 

-b 

Comparing  this  with  (4.10a)  and  assuming  that  the  homogeneous  equation  has 
only  the  trivial  solution  requires  that 

dy 

ka  y  -  -j-^   =  0.  (4.14) 

•^e   dz 

This  is  almost  certainly  true.   More  research  needs  to  be  carried  out  to 

1 
prove  that  it  is  definitely  true.   Since  y  was  assumed  to  have  z  ^  edge 

behavior,  the  edge  behavior  of  y   appears  to  be  z^.   This  seems  to  verify 

the  validity  of  the  assumption  that  y  (±b)  =  0.   Substituting  (4.14)  in 


(4.12)  yields 


w(z)  =  w  (z)  =  ^  y  +  ka  y  .  (4.15) 

^  '     o      dz  -^e      -^o 


_3 

This  is  an  odd  function  which  apparently  has  edge  behavior  z  ^.   The  z 

variation  of  w  (z)  must  be  the  same  for  all  a  €  [-1,1]  in  order  for  the 
o 

present  method  to  yield  a  unique  solution.   Since  this  is  true  for  the 
half-plane  problem,  it  seems  reasonable  that  it  also  would  be  true  for  the 
strip,  even  though  a  proof  of  this  has  not  been  found.   By  differentiating 

this  odd  solution,  an  even  solution  is  obtained.   This  even  solution  has 

-5/2 
z     edge  behavior  and  so  is  not  allowed. 

Although  a  non-zero  even  solution  of  the  homogeneous  finite  part  inte- 
gral equation  with  the  proper  edge  behavior  has  not  been  determined,  one 
will  optimistically  be  assumed  to  exist  to  facilitate  the  present  discus- 
sion.  If  one  does  not  exist,  then  the  problem  does  not  have  a  solution. 
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That  an  even  solution  is  required  may  be  seen  by  considering  the  special 
case  of  normal  incidence.   For  a  narrow  strip,  the  current  distribution 
may  be  approximated  as 

ly  =  c^  (b^-z^)2l^^(z).  (4.16) 

2    2    2 
The  current  source-function  u(z)  =  (d  /dz   +  k  ) I„  is  seen  to  be  an  even 

n 

function  with  z  ^  edge  behavior.   Clearly,  an  even  function  with  z  ^  edge 
behavior  is  required  to  reconstruct  the  proper  current  source-function. 

Assuming  the  existence  of  an  even  solution  with  suitable  edge  behavior, 
the  current  source-function  may  be  written  in  the  form  expressed  by  (4.6). 
This  formula  contains  two  coefficients  which  remain  to  be  determined.   The 
procedure  for  evaluating  these  constants  depends  upon  a  consistency  condi- 
tion which  is  presented  in  the  next  section. 

6.5   The  Consistency  Condition 

Consider  the  homogeneous,  inhomogeneous ,  and  adjoint  homogeneous  sys- 
tems for  -b  j<  z  j<  b : 

The  homogeneous  system 

JCp  =  0     p(-b)  =  p(b)  =  0  (5.1a) 

The  inhomogeneous  system 

£n  =  f    n(-b)  =  n(b)  =0  (5.1b) 

and 

The  adjoint  homogeneous  system 

Z*^   =  0  (5.1c) 
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2    2    2 
where  £  =  £*  =  (d  /dz  +  k  ) .   When  £ri  is  a  pseudofunction  in  the  neigh- 
borhood of  the  edges,  boundary  conditions  on  the  adjoint  homogeneous  system 
are  not  required.   Consistency  conditions,  however,  must  be  satisfied  for 
the  existence  of  a  unique  solution.   Multiplying  (5.1b)  by  i)   and  (5.1c) 
by  ri>  subtracting,  and  integrating,  one  obtains 


{4'£n  -  r^*ii}dz   = 


f(z)  ij;(z)dz 


(5.2) 


-b 


-b 


for  every  ^   which  is  a  solution  of  (5.1c).   The  integral  on  the  left  is 

zero.   This  may  be  seen  by  performing  integration  by  parts  on  the  first 

term  on  the  left.   The  integral  on  the  left  becomes 

b 


/  ,  dn     dip   . 


(5.3) 


-b  . 


If  dn/dz  is  finite  at  the  end  points,  then  the  adjoint  problem  has  the 
boundary  conditions 


ij;(-b)  =  -Kb)  =  0, 


(5.4) 


If,  on  the  other  hand,  dn/dz  approaches  infinity  at  the  end  points,  then 
no  boundary  conditions  on  ^  are  required  because  the  divergent  terms  may 
be  made  part  of  a  finite  part  integral.   Using  the  fact  that 


Fp 


-b 


i/jiJCndz   =   lim 
e^O-H 


b-e 

dn 

iizndz  -  t^ 

(b-e) 


b-e 
-(b-e) 


(5.5) 


the   left-hand   side  of    (5.2)   becomes 

b 


-  n 


d± 
dz 


(5.6) 


-b 
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The  boundary  condition  in  (5.1b)  makes  this  zero.   Thus,  in  order  for 
(5.1b)  to  have  a  solution,  the  consistency  conditions 

b 


f(z)  \l>  ^(z)dz  =  0  (5.7a) 


-b 
and 


mus 


f(z)  il)  2(z)dz  =  0  (5.7b) 

-b 

ikz    ,  ,      -ikz 


t  be  satisfied  where  ip   =  e    and  i|;   =  e     or  ij;..  =  sin(kz)  and 


\l)„   =  cos(kz).   These  are  necessary  conditions. 

The  solution  to  (5.1b)  depends  on  whether  (5.1a)  has  a  non-zero  solu- 
tion.  When  it  does,  the  system  is  resonant  and  an  arbitrary  multiple  of 
the  resonant  solution  of  (5.1a)  can  be  added  to  the  solution  for  n-   The 
following  theorem,  similar  to  one  given  by  Stakgold  (1967,  Volume  I,  p.  85), 
is  useful. 

Theorem:   System  (5.1b)  has  no  solution  unless  the  consistency  conditions 
(5.7)  are  satisfied  for  every  function  \l)   which  is  a  solution  of  (5.1c). 

This  theorem  is  true  only  if  the  derivative  of  n ,  the  unknown,  approaches 
infinity  as  the  edge  is  approached.   This  eliminates  the  adjoint  boundary 
conditions.   If  the  adjoint  boundary  conditions  are  required,  the  consis- 
tency condition  is  usually  satisfied  automatically  since  the  adjoint  homo- 
geneous system  (5.1c)  would  usually  have  only  the  trivial  solution.   Assum- 
ing that  the  current  source-function  u  may  be  expressed  by  (4.6), 

u(z)  =  sine  v(z)  +  A  w^(z)  +  B  w^(z),  (5.8) 
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the  constants  A  and  B  may  be  found  by  using  the  consistency  conditions 
with  il'j^  =  'I'   =  cos(kz)  and  4i„   =  ip      =  sin(kz).   "e"  and  "o"  subscripts  de- 
note even  and  odd  functions,  respectively.   Since  the  integral  of  an  odd 
function  is  zero,  the  expressions  for  A  and  B  become 

b 


-sinO 


v(z)  cos(kz)dz 


A  = 


-b 


w  (z)  cos(kz)dz 


(5.9) 


-b 


and 


B  = 


-sine   v(z)  sin(kz)dz 
-b 


(5.10) 


w  sin(kz)dz 
o 


-b 


6 .6   The  Solution  for  the  Current 

6.6.1  Off  Resonance 

If  an  appropriate  even  solution  w  (z)  of  the  homogeneous  finite  part 
integral  equation  can  be  found,  then  the  current  source-function  u(z)  is 
given  by  (4.6)  and  the  current  is  related  to  the  current  source-function 
by  the  convolution  equation 


(  6"  +  k  6  ) *  !„  =  u(z) 
n 


(6.1) 


This  equation  can  be  solved  using  a  fundamental  solution  of  the  operator 

2   2    2 
(d  /dz  +  k'^)  .   A  fundamental  solution  satisfies  the  equation 
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(  6"  +  k  6  )*  E  =  6(z-c) 


(6.2) 


as  was  discussed  in  Section  6.2.4.   One  such  fundamental  solution  is 

iklzl 


E(z)  = 


2ik 


(6.3) 


This  is  given  by  Stakgold  (1967,  Volume  II,  p.  55).   The  solution  for  the 


current  I„(z)  is 
rl 


Ijj(z)  =  u(z)  *  E(z) 


(6.4) 


Substituting  this  in  (6.1)  gives 


u(z)  *  (  6"  +  k  6  ) *  E(z)  =  u(z) *  6(z)  =  u(z), 


This  shows  that  (6.4)  is  indeed  a  solution  for  the  current. 


(6.5) 


The  consistency  conditions  may  be  used  to  show  that  ^^i^)  as  given  by 
(6.4)  is  zero  for  z  i  (-b,b).  Assuming  that  (6.4)  may  also  be  interpreted 
as  a  finite  part  integral, 

b 


^H^"^  =  2ik 


u(z')  e 


ik|z-z'|   , 


dz' 


-b 


2ik 


-ikz 


u(z')  e'-^^'dz'  =  0 


z  <  -b 


■ 

-b 

b 
i^^^        u(z')  e""*"^^'  dz'  =  0   z  >  b. 
-b 


(6.6) 


Thus,  as  long  as  the  consistency  conditions  hold,  Iu(2)  is  given  by  (6.4) 
for  all  values  of  the  argument  z.   For  a  Green's  function  with  boundary 
conditions  g(±b,  z')  =  0, 
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,        ,.  ^  sin[k(z'±b)]  sin[k(z+b)]        ,  >  ^'       if,   i\ 
^''^♦^  ''         k  sin(2kb)         '      z  <  z  ,     (b./; 


it  may  be  shown  that 


b  b 

u(z')  g(z,z')dz'  = 
-b  -b 


u(z')  E(z-z')dz'  (6,8) 


as  long  as  the  consistency  conditions  are  satisfied.   This  proves  that  the 
expression  for  the  current  derived  by  conventional  Green's  function  tech- 
niques is  the  same  as  that  given  by  (6.4)  provided  that  the  consistency 
conditions  are  satisfied. 

6.6.2   The  Case  of  Resonance 

When  the  frequency  of  the  incident  plane  wave  is  such  that 

k  =  IJ  ,         n  =  1,2,---,  (6.9) 

Equation  (5.1a)  has  a  nontrivial  solution.   For  even  n,  the  solution  is 

sin(kz)  and  for  odd  n,  it  is  cos(kz).   At  resonance,  (6.2)  has  no  solution 

rb 
because  the  consistency  condition   6(z-?)p(?)d?  =  0  is  not  satisfied. 

•'-b 
Here,  p(c)  is  the  resonant  nontrivial  solution  to  (5.1a). 


At  resonance,  a  modified  Green's  function  must  be  used.  Discussions 

of  the  modified  Green's  function  are  given  by  Stakgold  (1967,  Volume  I, 

p.  89)  and  Lanczos  (1961,  pp.  270-275).   The  modified  Green's  function 
satisfies 

Ji!*g^(z|?)  =  6(z-^)  +  C  p(z)  p(^)  (6.10) 

where  p(z)  is  a  solution  to  (5.1a).   The  consistency  condition 
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[&(z-0    +   C  p(z)p(c)]p(?)d<;  =  0 


-b 


is  applied  to  find  the  constant  C, 


C  =  -  -^ 


P  (Ode 


-b 


-1 


1 
b' 


all  n. 


(6.11 


This  insures  that  a  solution  for  g.,  exists. 

Boundary  conditions  on  g  are  not  required  if  pseudofunctions  which 
are  singular  at  the  ends  are  present  in  the  current  source-function.   A 
suitable  modified  Green's  function  appears  to  be 


^ik|z-c| 
%(^l^)  =   2ik 


2kb 


-cos 


sm 


(kz) 


sin 


cos 


(k?),  n 


even 


odd. 


(6.12) 


This  may  be  verified  directly  by  applying  £*.   Any  constant  times  p(z)  can 
be  added  to  this  Green's  function  to  obtain  another  one. 

The  solution  for  the  current  corresponding  to  (6.6)  becomes 

b 


i^(0  = 


r 


u(z)  g  (z|e)dz  +  C  p(c) 


'M 


(6.13) 


-b 


where  p(c)  is  the  nontrivial  solution  to  (5.1a)  and  C  is  any  constant. 
This  result  tends  to  suggest  that,  at  resonance,  a  current  can  exist  even 
though  u(z)  is  negligibly  small  or  zero.   The  reader  is  referred  to  Stak- 
gold  or  Lanczos  for  further  comments. 


6. 7   Conclusion 

So  far,  the  results  of  this  chapter  are  inconclusive.   If  an  even 
function  with  the  proper  edge  behavior  can  be  found  which  satisfies  (4.8), 
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or  if  additional  techniques  can  be  developed  to  find  the  distributional 
solutions  of  (4.5),  then  the  current  source-function  technique  may  be 
used  to  find  an  exact  solution  to  the  strip  problem.   More  research  in 
this  area  needs  to  be  performed. 

Although  time  did  not  permit  it  here,  the  strip  problem  could  be 
solved  numerically  and  the  results  compared  to  the  exact  results  to  verify 
that  the  current  source-function  technique  is  useful  in  obtaining  approxi- 
mate solutions  for  finite  problems.   It  would  also  be  interesting  to  take 

2     2    2 
the  exact  solution  for  the  current  I„,  to  find  u  =  d  lu/^z  +  k  I^  and  to 

compare  this  with  I   in  order  to  determine  the  functions  which  must  be 

ill 

added  to  I„  to  obtain  u. 
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7,   THE  THREE-DIMENSIONAL  TIME-DEPENDENT  CURRENT  SOURCE-FUNCTION 

The  extension  of  the  current  source-function  technique  to  the  three- 
dimensional  time-dependent  case  is  straightforward.   The  steps  in  the 
development  are  briefly  outlined  here. 

The  previous  chapters  dealt  with  extreme  cases  of  scatterers  with 
sharp  edges.   The  currents  on  smooth  scattering  objects  without  edges  do 
not  have  singular  behavior  and  therefore  may  be  twice  dif ferentiable. 
Objects  with  sufficiently  well-behaved  currents  would  be  expected  to  have 
a  well-behaved  current  source-function.   If  this  is  the  case,  then  the 
current  source-function  will  be  locally  integrable,  the  concept  of  the 
finite  part  will  not  have  to  be  introduced,  and  consistency  conditions 
usually  will  be  satisfied  automatically. 

7.1  Maxwell's  Equations  and  the  Current  Source-Function 
Maxwell's  equations  are 

9B 

VxE  =  -  — r  -  K  (1.1a) 

ot 

3D 
VxH  =  T-  +  J  (1.1b) 

V-D  =  p  (1.2a) 

V-B  =  m  (1.2b) 

where  E  and  H  are  the  electric  and  magnetic  field  intensities,  J[  and  K  are 
densities  of  electric  and  magnetic  currents,  and  p  and  m  are  the  electric 
and  magnetic  charge  densities.   The  charge  and  current  are  related  by  the 
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continuity  equations 


V-K  =  - 


3m 
3t 


V'J  =   -  ~ 


9t 


(1.3a) 
(1.3b) 


By  combining  Maxwell's  equations,  the  currents  and  fields  can  be  related 
directly.   These  expressions  are 


(V"  - 


2   2  ^ 
c   9t    3t 


and 


(V   - 


1  9 


c   9t 


9H 


9t 


1 


1 


VV-J  - 


1  9 


2  :^  2  - 
c   9t 


+  -VXK 


VV«K 


J_  9_ 
c^St^ 


K 


-^^^^• 


(1.4a) 


(1.4b) 


If,  for  example,  K  =  0,  then  the  E  field  is  related  to  the  current  by 


2   2^,      e 
c   9t    9t 


VV-J  - 


1  9' 


2  .2  - 
c   9t 


e  — 


(1.5) 


where  U,  the  current  source-function,  is  given  by 


u  =  vv.  J  -  ^  7T  ^- 

c   9t 


(1.6) 


7.2   The  Expression  for  the  Current  in  Terms  of  the  Current  Source-Function 
If  the  current  source-function  U  is  known,  then  the  current  is  given  by 


2  2 

^  ^  J  =  (Vxvx  +  -^  3—  )  [U  *  1>] 
c      dt  c      9t 


=  [(Vxvx  +  -^  -^  )U]  *  $ 
c   9t 


=  U* 


(VxVx  + 


1  9' 


2  a  2 

C   o  t 


)<& 


(2.1a) 


(2.1b) 


(2.1c) 
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where  $  is  a  solution  of  the  equation 

,2 


(V^  -  -^^  )$  =  6(r,t)  (2.2) 

c   9t 


and  [    ]  represents  a  dyadic  operator.   For  harmonic  time  dependence, 

-iwt   /o  T  ^  u 
e    ,  (2.1)  becomes 

2  2 

k  J  =  (-VxVx  +  k  )[_U*  $]  (2.3a) 

2 
=  [(-VxVx  +  k  )U]  *  $  (2.3b) 


U*  [(-VxVx  +  k^)$]  (2.3c) 


where  $  is  a  solution  of  the  equation 


(V^  +  k^)$  =  6.  (2.4) 


Equations  (2.1a)  and  (2.3a)  follow  from  (1.5)  by  using 


V-J  =  -  e|^  (V-E)  (2.5) 


and 

3E 


_  =  _  i  [u*$].  (2.6) 


Equations  (2.1b)  and  (2.3b)  may  be  verified  by  substituting  U  from  (1.6) 

and  using 

2  2 

<[(V^  -  ^^  )  F]*$,  cp)  =  <F*  [(V^  -  ^^  )$],  cp) 
c   9t  c   9t 

=  <F*  6,  cp)  =  <F,  cp)  (2.7) 

where  cp(r;, t)  is  a  testing  function  in  J^   and  E^  is  a  distribution  of  finite 

support  in  the  spatial  variables  and  of  semi-infinite  support  along  the 
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positive  time  axis.   Equations  (2.1c)  and  (2.3c)  follow  either  from  the 
associativity  of  convolution  in  distribution  theory  or  from  the  theory  of 

systems  of  partial  differential  equations  in  distribution  theory.   The 

1  8^ 
dyadic  inverse  of  the  (VV*  -  —  — y  )  operator  in  (1.6)  may  be  found  by 

c  dt 

utilizing  the  concepts  presented  by  Latta  (1974,  pp.  621-623).   Tai  (1971) 

discusses  similar  dyadic  Green's  functions. 

7. 3   Conclusions 

It  appears  that  the  direct  relation  (1.5)  between  the  current  and  the 
electric  field  can  be  used  to  solve  for  the  current  on  a  scatterer  without 
introducing  the  vector  potential,  at  least  for  those  obstacles  with  suf- 
ficiently well-behaved  current  distributions.   The  current  source-function 
technique  shows  promise  for  treating  the  time-domain  scattering  from  smooth 
objects.   Vector  and  scalar  potentials  would  not  be  required.   More  re- 
search needs  to  be  carried  out  to  verify  the  usefulness  of  this  technique. 
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8.   CONCLUSION  AND  SUGGESTIONS  FOR  FURTHER  DEVELOPMENT 

The  current  source-function  (CSF)  technique  has  been  applied  to  the 
problems  of  scattering  of  electromagnetic  waves  from  simple  planar  obstacles. 
Techniques  were  developed  for  treating  the  singular  behavior  of  the  current 
and  its  source-function  when  the  scatterers  have  sharp  edges.   In  the  case 
of  the  half-plane,  an  exact  solution  was  obtained  using  the  CSF  technique. 
The  currents  induced  on  the  half-plane  were  also  obtained  by  using  the 
moment  method  to  solve  the  CSF  integral  equation  numerically.   An  attempt 
to  solve  the  strip  problem  exactly  using  the  CSF  technique  remains  incom- 
plete for  lack  of  an  even  solution  of  the  homogeneous  finite  part  integral 
equation  with  proper  edge  behavior.   However,  the  numerical  solution  of 
the  strip  problem  using  the  CSF  technique  remains  to  be  investigated. 

The  CSF  technique  shows  promise  for  solving  integral  equations  with  a 
logarithmic  singularity  both  on  the  right-hand  side  and  in  the  kernel.   An 
antenna  with  a  6  gap  excitation  (i.e.,  magnetic  current  K  =  6(z)  6(r-a)  (j)  ) 
produces  an  electric  field  with  a  logarithmic  singularity.   The  CSF  tech- 
nique also  shows  promise  for  handling  arrays  of  scattering  or  radiating 
objects.   The  interactions  between  elements  would  be  accounted  for  in  the 
current  source-function  which  would  simplify  the  moment  method  solution. 
Once  the  current  source- function  was  known,  the  current  on  an  element  could 
be  found  from  the  current  source-function  associated  with  that  element 
alone . 

The  general  nature  of  the  CSF  technique  has  been  indicated  in  a  brief 
outline  of  how  a  current  source-function  might  be  defined  for  three- 
dimensional  time-domain  problems  (Chapter  7).   Thus,  there  are  many 
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possibilities  for  application  of  the  CSF  technique  which  remain  to  be 
explored.   Only  after  further  development  will  it  be  possible  to  make  a 
meaningful  comparison  between  the  moment  method  solutions  of  the  CSF  inte- 
gral equation  and  the  electric  field  integral  equations  of  Pocklington  and 
Hallen.   However,  one  advantage  of  the  two-step  CSF  approach  is  that  even 
though  the  current  source-function  may  be  approximated  by  a  discontinuous 
function,  the  current,  being  calculated  by  integration,  is  continuous. 
Other  possible  advantages,  mentioned  previously,  such  as  efficiency  due  to  a 
simpler  kernel  and  fewer  basis  functions,  need  to  be  investigated  further. 
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APPENDICES 
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A.   ANALYSIS  OF  ACCURACY 

If  a  is  a  numerical  approximation  to  the  value  of  some  function  whose 
true  ("standard")  numerical  value  is  s,  then, 


Absolute  error  = 
and 

Relative  error  = 


s  -  a 


s  -  a 


(A.l) 


(A. 2) 


Relative  error  is  often  used  when  the  approximate  value  a  is  obtained 
through  floating  point  arithmetic.   The  exponent  scaling  present  in  float- 
ing point  arithmetic  makes  relative  error  the  most  natural  criterion  to 
use  for  describing  the  accuracy  of  such  a  numerical  procedure.   The  rela- 
tive error  must  not  be  used  when  the  standard  is  equal  to  zero  or  in  the 
neighborhood  of  zero.   This  limits  the  usefulness  of  relative  error. 

By  their  very  nature,  some  numerical  approximations  are  naturally 
absolute  decimal  approximations  and  absolute  error  criteria  must  be  used. 
Power  series,  for  example,  are  sometimes  of  this  type.   If  relative  error 
is  used  instead  of  the  absolute  error  for  such  approximations,  enormous 
errors  are  obtained  in  the  vicinity  of  a  null  or  near-zero.   For  example, 
if  a  numerical  approximation  generates 

a  =  0.0003927 

when  the  true  value  of  the  function  at  that  point  is 

s  =  0.000000721 

then 

Absolute  error  =  0.000391979 
and 

Relative  error  =  543.66. 
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This  number  for  relative  error  is  not  particularly  meaningful  and  may  be 
misunderstood  if  the  values  of  a  and  s  are  not  given.   The  absolute  error 
may  also  be  misinterpreted  unless  the  maximum  value  of  the  approximated 
function  is  given. 

The  proper  choice  of  using  either  the  relative  error  or  the  absolute 
error  must  often  be  made  by  computing  both  and  choosing  the  most  meaning- 
ful one.   The  "typical"  or  median  relative  error  is  used  sometimes  to 
describe  the  relative  accuracy  of  a  numerical  approximation  to  some  func- 
tion.  This  provides  a  measure  of  error  which  is  easily  understood,  but 
eliminates  from  consideration  large  relative  errors  occurring  around  nulls 
and  near-zeroes. 

Hart  et  al.  (1968,  p.  162)  define 

Precision  index  =  -  Jloe,_,e  (A.  3) 

10  max 

where  e    is  the  maximum  relative  or  absolute  error.   For  many  of  the 
max 

numerical  approximations  studied  in  this  work,  pointwise,  average  or  median 
relative  error  is  preferred  to  maximum  relative  error.   For  this  reason, 
the  definition 


Digits  of  Accuracy  =  -  i!,og 


10 


s  -  a 


(A. 4) 


is  made  where  s  and  a  are  numbers  corresponding  to  a  standard  approxima- 
tion and  to  an  approximation  under  study,  respectively.   The  "digits  of 
accuracy"  factor  defined  above  is  applicable  only  at  a  point  and  is  re- 
lated to  the  pointwise  percent  error  through  the  ^og  „  function.   Its 
name  is  derived  from  the  fact  that  it  tends  to  represent  the  actual  number 
of  digits  for  which  the  approximate  value  matches  the  standard  value.   For 
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example,  2.42  is  accurate  to  1.3  digits  when  the  standard  is  2.54  and 
0.0044721  is  accurate  to  3.9  digits  when  the  standard  is  0.0044716.   The 
estimated  median  digits  of  accuracy  is  sometimes  used  to  indicate  general 
trends  that  an  approximation  to  some  function  exhibits  over  some  finite 
range  of  arguments.   The  median  is  used  instead  of  the  maximum  because  of 
the  losses  of  digits  of  accuracy  occurring  at  nulls  or  near-zeroes.   If 
it  is  desired  to  compare  two  numbers,  neither  of  which  is  known  to  be  cor- 
rect, then  the  "number  of  matching  digits"  is  given.   This  is  obtained  by 
assuming  that  one  or  the  other  of  the  numbers  is  most  correct  and  using 
it  as  the  standard  for  the  "digits  of  accuracy".   In  some  cases,  an  aver- 
age of  the  "digits  of  accuracy"  is  used. 

For  some  comparisons,  a  measure  of  the  number  of  decimal  places  of 
accuracy  (or  of  the  absolute  error)  is  useful  or  necessary.   For  this 
reason,  it  is  helpful  to  define 

Decimal  Offset  Factor  =  -  «.og  J  s  |  .  (A.  5) 

If  the  decimal  offset  factor  is  given,  an  estimate  of  the  magnitude  of  the 

standard  is  obtained  from 

I  I   ^--Decimal  Offset  Factor  /a  :;\ 

I s I  -  10  .  CA.6; 

A  measure  of  the  number  of  decimal  places  of  accuracy  is  obtained  from  the 
equation 

Decimal  Places  of  Accuracy  =  -  Ji-og^f^  |s  -  a| 
=  -  (^og, 


10 
s  -  a 


+  ^ogiol^l) 


'10   s 
=  Digits  of  Accuracy  +  Decimal  Offset  Factor    (A. 7) 
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For  a  standard  of  2.54,  the  decimal  offset  factor  is  -0.4  and  for  a  stan- 
dard of  0.0044716  the  decimal  offset  factor  is  +2.3.   From  the  above  equa- 
tion, 2.42  is  accurate  to  0.9  decimal  places  with  a  standard  of  2.54  and 
0.0044721  is  accurate  to  6.3  decimal  places  with  a  standard  of  0.0044716. 

A  measure  of  decimal  places  of  accuracy  which  seems  to  agree  with 
visual  expectations  better  than  (A. 7)  is 

Apparent  Decimal  Places  of  Accuracy  = 

=  Digits  of  Accuracy  +  Decimal  Offset  Factor  -  0.5.   (A. 8) 
This  is  not  used  in  this  thesis.   Where  large  groups  of  data  are  involved, 
an  estimated  median  decimal  offset  factor  is  given.   In  most  cases,  the 
decimal  places  of  accuracy  figure  is  given  per  se. 

The  concept  of  digits  of  accuracy,  decimal  offset  factor,  and  decimal 
places  of  accuracy  are  quite  useful  when  comparisons  between  two  or  more 
approximations  to  some  function  are  being  made.   In  general,  it  is  suffi- 
cient to  simply  compare  the  digits  of  accuracy  figures.   In  certain  cases 
where  the  values  of  the  standards  are  not  close  to  each  other,  it  is 
necessary  to  keep  the  respective  decimal  offset  factors  in  mind  in  order 
to  obtain  a  meaningful  absolute  comparison.   Either  (A. 7)  or  (A. 8)  may  be 
used  for  this. 
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B.   APPROXIMATIONS  TO  THE  MATRIX  ELEMENTS 

The  matrix  elements  for  the  moment  method  solution  of  integral  equa- 
tions with  a  Hankel  function  II„   kernel  are  integrals  of  the  Hankel 
function  weighted  with  the  expansion  functions.   Numerical  approximations 
for  these  matrix  elements  have  often  been  made  without  stating  the 
absolute  or  relative  accuracy  of  these  approximations.   Excellent  approxi- 
mations, accurate  to  at  least  ten  decimal  places,  for  the  matrix  elements 
are  given  in  the  text  and  will  be  used  as  the  standards  to  which  the 
approximations  given  here  are  compared.   The  accuracies  of  the  approxima- 
tions derived  here  are  given  in  terms  of  "digits  of  accuracy"  and  "decimal 
offset  factor."   These  terms  are  defined  and  explained  in  Appendix  A. 
Further  references  and  another  discussion  of  matrix  element  approximation 
for  the  Hankel  function  kernel  are  given  by  Harrington  (1968,  pp.  43-44, 
47-49). 

The  crudest  approximations  for  the  self  terms  are  derived  from  the 
formula 

JQ(t)  =  1  (B.l) 

for  small  t.   Better  approximations  are  derived  from  the  formula 

JgCt)  ==  cos(t//2)  (B.2) 

for  small  t.   Using  the  fact  that 

H^-'-^(t)  =  jQ(t)  +  i(2/7r)[Y+X,n(x/2)]  J^Ct)  +  i(4/TT)J2(t)  +  iO(t^).  (B.3) 

and  substituting  (B.l)  and  (B.2)  in  (B.3),  one  obtains 

H^^^(t)  -  1  +  i(2/TT)[Y+Jln(t/2)]  (B.4) 
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and 


H<»(t) 


cos(t//2)  +  i(2/Ti)[Y  +  £n(t/2)]  cos(t//2), 


(B.5) 


after  neglecting  higher  order  terms.   Self  term  approximations  given  here 
are  based  on  (B.4)  and  (B.5). 

Matrix  element  approximations  involving  the  Hankel  function  with  a 
difference  argument  are  derived  from  the  expansion 


Hq   (D-t)  =  I     H^^^D)Jj^(t) 

k=-  0° 


D   >   t 


(B.6) 


as  is  given  by  Olver  (1964,  p.  363).   Use  of  this  infinite  series  allows 
the  D  and  t  dependence  to  be  separated.   Mutual  term  approximations  given 
here  are  based  on  (B.l),  (B.2),  and  (B.6). 


B.l   The  Self  Terms  for  a  Pulse  Basis  Function 

Self  term  matrix  elements  for  pulse  expansion  functions  are  propor- 
tional to 


H 


H 


H 


H^^^(t)dt  = 


jQ(t)dt  +  i 


YQ(t)dt 


(B.7) 


where  Jf^(t)  and  Y_(t)  are  the  Bessel  functions  of  the  first  and  second 
kinds.   Two  numerical  approximations  to  this  integral  will  be  compared 
using  the  approximation  given  by  (2.4)  and  (2.5)  of  Chapter  4  as  the  stan- 
dard.  Substituting  (B.4)  and  (B.5)  in  (B.7)  yields  the  approximations 


H 


H^-'-^(t)dt  =  H  +  i(2/TT)[Y  +  Jln(H/2)  -  1]H 


(B.8) 


and 
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H^"'-^(t)dt  =  /2  sin(H//2)  +  i(2/Tr)[Y  +  )ln(H/2)]  ^fl   sin(H//2) 

-  i(2/TT)H  [sin(H//8)/(H//8)]".       (B.9) 


Table  B.l  summarizes  the  accuracy  of  these  approximations.   (B.8)  is  good 
to  three  digits  for  H  less  than  0.1.   The  usefulness  of  (B.9)  is  limited 
by  its  imaginary  part  which  is  good  to  three  digits  for  H  less  than  0.2. 
In  conclusion,  it  appears  that  (B.9)  gives  roughly  the  same  accuracy  at 
2H  as  (B.8)  does  at  H. 


B.2   The  Mutual  Terms  for  a  Pulse  Basis  Function 

Mutual  term  matrix  elements  for  pulse  expansion  functions  are  written 


as 


H 


H^^^D-t)dt 


(B.IO) 


-H 


where  2H  is  the  subsection  width  and  D  =  2nH  for  n  =  1,2,'«'.   Several 
approximations  to  (B.IO)  are  studied.   Substituting  (B.6)  in  (B.IO),  one 
obtains 


H 


H 


r(l) 


,(1), 


-H 


H;^^D-t)dt  =  2  J^  ej^H^j^^D) 


J2k(t)dt 


(B.ll) 


where 


=  { 


1 
2 


k  =  0 
k  >  0. 


Retaining  the  first  two  terms  gives  the  approximation 


H 


H^^^(D-t)dt  -  2  H^^^D) 


H 
jQ(t)dt  +  4  H^^^(D) 


H 


(B.12) 


J2(t)dt, 


(B.13) 


-H 
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The  integral  of  J„(t)  may  be  approximated  by  remembering  that 


1    9 

J2(t)  -  g  t  cos(t//6) 


(B.14) 


for  small  t.   Integrating  by  parts  and  dropping  higher  order  terms,  one 
obtains 


H 


J2(t)  dt  ^    (H  /24)  cos(H//6) 


(B.15) 


0 


for  small  H.   Using  this  in  (B.13)  yields  the  first  approximation 
H  H 


I  H^^^D-t)dt  -  2H^^\d) 
-H 


J„(t)dt  +  hJ^^CD)  ^  cos(H//6).     (B.16) 
U  Z       b 


0 


All  of  the  functions  given  on  the  right-hand  side  of  the  equal  sign  are 

evaluated  to  double  precision  accuracy  using  the  appropriate  subprograms. 

The  second  approximation  is  obtained  from  (B.2)  and  (B.16)  and  is 
H  3 

H^^^(D-t)dt  -  2/2  H^^^(D)  sin(H//2")  +  H^^^D)  ^cos(H//6).  (B.17) 


-H 


(1) 


The  third  and  fourth  approximations  are  obtained  by  dropping  the  H^   (D) 


terms  in  (B.16)  and  (B.17).   These  are 

H 
'  H^-'-^(D-t)dt  =  (2H)H^^^(D) 


-H 


and 


,(1) 


Hr''(D-t)dt  =  2/2  sin(H//2)  H^-'^D) 


(1) 


0 


(B.18) 


(B.19) 


-H 


The  four  approximations  are  compared  in  Table  B.2  by  using  (2.6)  of  Chapter 
4  as  the  standard.   Careful  study  of  this  table  reveals  that  the  imaginary 
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parts  for  adjacent  elements  are  the  least  accurate.   The  expressions  (B.16) 
and  (B.17)  are  accurate  to  almost  three  digits  while  (B.18)  and  (B.19)  are 
accurate  to  almost  two  digits.   For  accuracy  to  three  digits,  (B.16)  or 
(B.17)  should  be  used,  if  only  for  adjacent  elements. 

A  final  approximation  is  derived  for  the  evaluation  of  adjacent  ele- 


ments.  This  is  obtained  by  writing 


H 


D+H 


D-H 


H^^^D-t)dt  = 


^  H^^^t)dt  -  [  H^^^t)dt 


(B.20) 


-H 


0 


0 


and  using  either  (B.8)  or  (B.9)  to  evaluate  the  integrals  on  the  right. 
Table  B.3  gives  the  accuracy  of  such  a  scheme  for  small  H  and  D.   These 
numbers  show  that  (B.20)  is  slightly  better  for  small  D  and  small  H  than 
are  (B.16)  through  (B.19),  but  that  the  error  increases  very  rapidly  as  D 
or  H  is  increased. 


B.3  The  Self  Terms  for  an  Inverse  Square  Root  Basis  Function 

The  self  term  due  to  an  inverse  square  root  expansion  function  is 

H 


f  .-lo(l) 


t  ^H^  '(t)dt. 


0 


Substituting  (B.4)  and  (B.5)  in  (B.21),  one  obtains 
H 
t"^H^-'-^(t)dt  =  2/h  (1  +  i(2/7r)[Y  +  £n(H/2)  -  2]) 


(B.21) 


(B.22) 


and     H 

t'M-'-^(t)dt  =  l''!   ReF.(H//2)  + 


+  i(4/7r)[(Y  +  )!.n^H)  2\eF„(H//2)  -  1^   ReF  (H/2)  ]   (B.23) 


where  F„  is  a  form  of  the  Fresnel  integral  and  is 
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Table  B.3 

Digits  of  Accuracy  and  Decimal  Offset  Factors  for 
Pulse  Expansion  Function  Matrix  Element  Approximations 

for  Small  H  and  D 


Approximations  to 
H 

H^-'-^D-t^dt 
-H 


sub- 
section 
width 


2H 


D  =  2H 


Real 


Imag. 


D  =  4H 


Real 


Imag. 


0.1 


0.2 


2.6 


2.0 


2.4 


1.8 


2.0 


1.4 


1.8 


1.4 


0.1 


0.2 


6.1 


4.9 


3.0 


2.3 


5.0 


3.8 


2.3 


1.5 


decimal  offset 
factor 


0.1 


0.2 


1.0 


0.7 


0.8 


0.7 


1.0 


0.7 


1.0 


0.9 


H 

H^^^D-t)dt  = 
-H 


D+H 


H^^^t)dt 


D-H 


H^^\t)dt 


1:   for 


H^   (t)dt  use  Equation  (B.8) 


2:   for 


H^   (t)dt  use  Equation  (B.9) 
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F2(y)  = 


A  2 
it  , 
e   dt. 

0 


(B.24) 


The  above  approximations  are  compared  in  Table  B.4  using  the  Chebyshev 
expansions  of  (2.12)  and  (2.13)  of  Chapter  4  as  the  standard.   Equation 
(B.22)  provides  three  digit  accuracy  for  small  H  while  (B.23)  provides 
three  digit  accuracy  for  H  as  large  as  0.4. 


B.4   The  Mutual  Terms  for  an  Inverse  Square  Root  Basis  Function 

Mutual  terms  for  an  inverse  square  root  expansion  function  may  be 
written  as 


H 

0 


t  2H^^\D-t)dt, 


(B.25) 


Substituting  (B.6)  in  (B.25),  one  obtains 
H 


t"*H;5^^D-t)dt  =  I      e^H^^^D) 

•'  k=0 

0 


H 

f   1 


t  2jj^(t)dt 


(B.26) 


0 


where  e,  is  defined  by  (B.12).   The  first  approximation  is  obtained  by 


retaining  only  the  first  two  terms  of  the  series  in  (B.26).   This  yields 
H  H  H 

t"^H^^^(D-t)dt  -  H^^\d)   t"^JQ(t)dt  +  2H^^^(D)J  t"^J^(t)dt.     (B.27) 
0  0  0 


The  second  approximation  uses  (B.2)  and  the  result 


Jj^(t)  ^   2  cos(t/2). 


(B.28) 


for   small   t,    in    (B.27)    to   obtain 

H 

i„(i),.  ....  ~  ,^,,,(1),^,  „_  ,„,.A^^  .  2  „(i) 


t   2H^^^(D-t)dt   -   2*2H^^^D)    ReF2(H//2)    +  y  H^^^D)    h2cos(H/2).       (B.29) 


0 
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5/2 
The  H    term  arising  in  integration  by  parts  is  neglected.   The  third  and 

fourth  approximations  are  obtained  by  dropping  the  H^^   (D)  term  in  (B.27) 

and  using  (B,l)  and  (B.2)  for  J^(t).   These  approximations  become 
H 

t"2H^-'-^(D-t)dt  -  2  h2  H^-'-^(D)  (B,30) 

0 


and  H 

t"2H^-'-\D-t)dt  =-  2^*2  H^-'-^D)  ReF^W/l).  (B.31) 

0 

The  accuracy  of  the  approximations  (B.27),  (B.29),  (B.30),  and  (B.31)  is 
compared  in  Table  B.5.   The  standard  for  comparison  is  given  by  (2.16)  of 
Chapter  4.   It  is  clear  that  none  of  the  one  or  two  term  approximations 
are  suitable  for  calculating  the  imaginary  part  for  adjacent  elements  to 
three  digits.   Equations  (B.30)  and  (B.31)  appear  to  be  useless  for  almost 
any  D  or  H.   Equations  (B.27)  and  (B.29)  may  be  useful  for  non-adjacent 
elements,  but  it  too  exhibits  loss  of  digits  for  adjacent  elements.   This 
certainly  limits  its  usefulness. 
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H 


THE  CHEBYSHEV  APPROXIMATION  FOR 


t  ^  Hj^^t)dt 


The  Chebyshev  coefficients  for  the  integral 


t  2  H^-'''(t)dt  =  2 


'Hjl>(t^dt 


(C.l) 


are  derived  using  techniques  presented  by  Luke  (1969,  Volume  I,  p.  316). 
For  simplicity,  the  coefficients  will  be  evaluated  for  x  between  zero  and 
one.   The  first  step  is  to  expand  the  Hankel  function  H    (t)  in  terms  of 
Chebyshev  polynomials  over  the  range  from  zero  to  one.   Luke  gives 


n=0 


0  <  X  <  1, 


(C.2) 


and 


Y  (ax)  =  f  [y  +  £ni(ax)]  JQ(ax)  +  I      BJ^^^^)  '  0  <  x  <  1.    (C.3) 

n=0 

Luke  (1969,  Volume  II,  pp.  37-38)  gives  expressions  for  A^  and  B^.   These 


are 


\  =  ^n(-)"  -^i^^/^) 


(C.4) 


and 


„    /a.2n  ,  ,n+l 
\  ,    ..2  ^ 


,k  ,a^2k 
'2' 


(-)^  (1)^'^  (n+i-)^  h^^^^ 


IT  (n!) 


k=0     ("+l)k  (2n+l)j^  k! 


(C.5) 


k   1 
where  h  =0,  hj^=^  (k+l)-.J;  (1)  =   I  ".  ej^=2,k>0,  £^=1,  (z)^   is  Pochhammer's 

r=l 
symbol  and  ^   is  the  psi  function.   These  coefficients  for  a  =  1  have  been 

evaluated  and  are  presented  to  thirty  decimal  places  in  Table  C.l.   Inte- 

grating  (C.3)  with  weighting  function  t  ^,  one  obtains 
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Table  C.l 
The  Chebyshev  Coefficients  for  H^   (t) 


Jq^^)  =J2    ^n^2n(^)  0  <  X  <  1 
n=0 

n  A 

n 

0  0.88072  55791  02608  52856  66716  90745 

1  -0.11738  80111  68324  31940  62454  63926 

2  0.00187  32125  03719  19483  78708  78204 

3  -0.00001  31454  22970  29262  10718  29931 

4  0.00000  00516  72429  66801  43705  31710 

5  -0.00000  00001  29721  82348  54703  96309 

6  0.00000  00000  00225  88402  34607  00193 

7  -0.00000  00000  00000  28876  21352  76806 

8  0.00000  00000  00000  00028  24848  25625 

9  -0.00000  00000  00000  00000  02182  69906 

10  0.00000  00000  00000  00000  00001  36574 

11  -0.00000  00000  00000  00000  00000  00071 


n. 


11 

y    {-)"A   =  1.000000000000000000000000000000 

n=0 


^0 


(X)  =  (2/7T)  [y  +  £n(x/2)  ]  Jq(x)  +  ^  B^T2j^(x)     0  <  x  <  1 


n=0 


^n 


0  0.07413  80482  27767  97344  91419  78719 

1  0.07235  06431  28333  67004  27035  43214 

2  -0.00177  20593  14423  04775  99324  11845 

3  0.00001  52767  28830  75475  92604  99781 

4  -0.00000  00683  67550  04271  89855  54205 

5  0.00000  00001  88278  03355  02929  41047 

6  -0.00000  00000  00351  94783  94412  02370 

7  0.00000  00000  00000  47628  96435  51147 

8  -0.00000  00000  00000  00048  84890  95181 

9  0.00000  00000  00000  00000  03929  25221 

10  -0.00000  00000  00000  00000  00002  54571 

11  0.00000  00000  00000  00000  00000  00136 


11     n 

Y    (-)"b   =  0.000000000000000000000000000001 

n=0 
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(   .- 


X 

f   1 


t  2  Y_(t)dt  =  -  [y  +  «-n^x] 


0 


t  -^  J.(t)dt  -  f 

U  TT 


X    t 

1 

t 

0  'o 


y  2  J^(y)dy  dt 


+ 


X 

r  _i 

t   2   y   (t)dt 

0 


(C.6) 


where 


n=0 


(C.7) 


After  substituting  the  Chebyshev  series  for  Jp,(x)  and  y  (x)  in  (C.6),  all 
of  the  integrals  on  the  right-hand  side  reduce  to  the  general  form 


X 

r  _i  °° 

t  2  I      a  T„  (t)dt. 
n  ^   2n 
0    "=° 


(C.8) 


Integrals  of  this  type  have  been  studied  by  Luke  (1969,  Volume  I,  p.  316), 


among  others.   It  may  be  shown  that 

X 


-,00  00  e 

n=0  n=0 


(C.9) 


where  the  e  's  are  evaluated  from  the  a  's  with 
n  n 


and 


3  ,1    _  „ 

4  ^1   2  ^0   ^  ^0   ^1 


(^  ^  I  >  ^n+1  +  ^^  +  i  )  ^n 


=  a 


n    n+1 


(CIO) 


with  e   ,  initially  set  to  zero.   The  coefficients  [e  /2]  computed  in  this 
n+1  n 

manner  for  the  first  integral  on  the  right-hand  side  of  (C.6)  are  used  to 
write  the  second  integral  in  the  form  (C.8)  also.   The  coefficients  calcu- 
lated in  this  fashion  are  displayed  in  Table  C.2.   These  coefficients  were 


Table  C.2 
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The  Chebyshev  Coefficients  for 


X 


t  ^  H^^\t)dt 


X 


2  J^(t)dt  =    y^y^    a  T„  (x) 
0  /  ■/       n  2n 

n=0 


0  <  X  <  1 


n 

¥ 
1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 


n 


1. 

-0. 

0. 
-0. 

0. 
-0. 


-0. 

0. 
-0. 

0. 
-0. 


95128 
04829 
00042 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 


14331 
48425 
16807 
20373 
00061 
00000 
00000 
00000 
00000 
00000 
00000 
00000 


93046 
46336 
69656 
7  0  3  21 
08224 
12395 
00018 
00000 
00000 
00000 
00000 
00000 


58435 
80521 
71393 
04095 
90741 
81278 
11537 
01995 
00001 
00000 
00000 
00000 


50561 
03115 
76178 
64250 
08427 
86654 
14831 
24402 
71460 
00118 
00000 

00000 


29645 
22820 
47120 
18892 
01487 
77329 
66561 
67038 
49653 
12785 
06669 
00003 


11 


Y,   (-)"a   =  2.000000000000000000000000000002 


n=0 


t  2  YQ(t)dt  =  (2/^)  [Y  +  £n(x/2)] 


X 


J  (t)dt  +  /x 


Eb  T„  (x) 
n  2n 


n=0 


n 

T 
1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 


0  <  X  <  1 


n 


-2 

0 
-0 

0 
-0 

0 
-0 

0 
-0 

0 
-0 

0 


50331 
04269 
00046 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 


72157 
90225 
02718 
25707 
00085 
00000 
00000 
00000 
00000 
00000 
00000 
00000 


75212 
23431 
23386 
84757 
44759 
18749 
00029 
00000 
00000 
00000 
00000 
00000 


5291 
0894 
2610 
2030 
2330 
5286 
5404 
3379 
0003 
0000 
0000 
0000 


09138 
23961 
55595 
31143 
75086 
34560 
84394 
04162 
03142 
00216 
00000 
00000 


39593 
10043 
35412 
73364 
87831 
71075 
14376 
94632 
01976 
73013 
12638 
00006 


11 
n=0 


-)% 


n 


=-7.999999999999999999999999999996 
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checked  for  accuracy  by  comparing  the  numerical  values  of  the  Chebyshev 
series  with  those  of  the  power  series  representations  for  the  same  inte- 
grals evaluated  at  O.ln,  n=0,l,  •  •  •  ,10.   The  two  expansions  were  carried 
out  to  32  decimal  places  and  they  agreed  to  at  least  31  decimal  places  for 
all  eleven  arguments.   The  power  series  representations  that  were  used  are 
given  by  Luke  (1962,  pp.  44-45)  as  his  equations  2.3(1)  and  2.3(4). 
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D.   COMPUTER  PROGRAMS 

Computer  Program  for  E-polar ization  Half-Plane  Current. 

These  routines  were  written  by 
Donald  Farness  Hanson  between 
February,  1975  and  June,  1975. 

C  The  following  MAIN   program   solves   the   classical   half-plane 

C  problem   with   plane  wave  incidence  for  the  E-polar ization  (E-vector 

C  parallel  to  the  edge)  current  minus  the   so-called   physical   optics 

C  current,   (IE-IPO).    This  computer  program  is  written  in  FORTRAN  IV 

C  for  the  IBM  360  computer  at  the  University  of  Illinois.   The   entire 

C  program   as   given   here  requires  129  seconds  of  IBM  360/75  computer 

C  time  from  beginning  to  end (29  seconds  of  compile  time;   100   seconds 

C  of    execution   time).    It   compares   a   hybrid   expansion   with   a 

C  pulse-everywhere   expansion   for   the   numerical   solution   of    the 

C  integral   equation   by   the   method   of   moments.    The  hybrid  basis 

C  function  set  used  is  one  with  a  l/SORT(z)  expansion   function   in   a 

C  half-width   segment   at   the   edge   and   with   199   full-width  pulse 

C  expansion  functions  away  from  the  edge.   The  pulse-everywhere   basis 

C  function   set  used  is  one  with  a  half-width  pulse  expansion  function 

C  at  the  edge  and  with  full-width  pulse  expansion  functions  away   from 

C  the   edge.    Matrix  elements  are  evaluated  using  methods  which  yield 

C  at  least  10  decimal  olace  accuracy.   The  almost-Toepli tz   nature   of 

C  this   matrix   is   utilized  by  LTPLZ  to  cut  down  on  reauired  computer 

C  time.   MAIN  reserves  storage  locations  for  arrays  which   are   passed 

C  as   arguments  through  several  levels  of  subprograms.   ISPMOM  sets  up 

C  the  reauired  matrices  and   right-hand-side,   and   LTPLZ   uses   these 

C  matrices   to   form  an  inverse  and  generate  the  result.   PNTOWT  takes 

C  the  result  and  compares  it   with   the   known   analytic   solution   by 

C  printing  out  the  respective  real  parts,  imaginary  parts,  magnitudes, 

C  and  phases  along  with  their  differences.    PNTOWT   also   stores   the 

C  results   on   disk   for  later  use.   MAIN  calls  ISPMOM,  PULMOM,  LTPLZ, 

C  and  PNTOWT  directly  and  many  other  subprograms  indirectly.   Refer  to 

C  each   of   these   routines  for  a  list  of  the  subprograms  that  they  in 

C  turn  call.   The  RESULTS  of  MAIN  must  be  divided  by   Z0=376.731   ohms 

C  in  order  to  give  units  of  (A/m)/(V/m). 
C 

C 

C     Dimension  large  arrays. 

C 

C0MPLEX*16  IH0(200),  ISRTH0(200),  RHS(800),  RESULT ( 800 ), Zl ( 200 ) , 
1  A(200)  ,A1(200)  ,IEMPO(200)  ,HN1(32) 

REAL*8  JN(88),  JIN(32),  SK(88),  UN(88),  TAD(4),  DEZ,  KZ(200), 
1  XNORM,  H 

INTEGER  NCASES,  NSIZE,  NH ,  NMAX,  PNTOPT,  lER,  I 

LOGICAL  GORH(88),  ROOT 

C 

C     Set  up  angles  of  incidence  for  calculation. 

C 

DATA  TAD/45. D0,  90. D0,  135. D0,  180. D0  / 

C 

C      Set  up  parameters  for  run. 

C 
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NISIZE  =  200 
DEZ    =    10. D0 
NCASES=4 
NH    =    3  2 
NMAX    =85 
PWTOPT    =    0 
C 

C  Set   up   rpatrices    for    hybrid    exoansion    and    evaluate 

C  Riqht-Hand    Sides. 

C 

CALL  ISPMOM(NCA3ES,TAD,OEZ,NSIZE,KZ,IHO,ISRTH0,RHS,NH,HN1,NMAX, 
1  JN,  JIN,  SK,  UN,  GORH,  PNTOPT  ) 
C 

C      Print  values  of  matrix  elements. 

r 

PRINT  1,  (KZ(I),  TH0(I),  ISRTHOd),  1  =  1,  NSIZE  ) 
1  FORMAT ( '1' ,T12, 'MATRIX  ELEMENTS '//T9 ,  'X ' ,T35 ,  ' IH0 ' ,T89 ,  'ISRTH0 '/ 

1  (T2,0PF10.3,T13,  '< ' ,1PD23.15,  '  ,  '  , IX ,D23 . 15 ,  '> , ' , 5X , ' < ' , D23 . 15 , 

2  ',', IX, 023.15,  '>'  )  ) 

C 

C     Evaluate  (IE-IPO)  by  matrix  inversion  for  hybrid  exoansion. 

C 

CALL  LTPLZ (  ISRTH0 , IH0 , Zl , A , Al ,NSIZE , RHS , RESUL r,NCASES ,XNORM, lER) 
IF(  lER  .NE.  0  )  GO  TO  13 
ROOT  =  .TRUE. 

H  =  l.D0/(2.D0*DEZ) 
C 

C      Print  out  results  for  (IE-IPO)  for  hybrid  expansion. 

C 

CALL  PNTOWT(  TAD,  NSIZE,  MCASES,  KZ,  lEMPO,  RHS,  RESULT,  ROOT,  H  ) 

r< __. 

C     Set  up  matrices  for  oulse-everywher e  expansion. 

C 

CALL  PULMOM(  DEZ,  NSIZE,  KZ,  IH0 ,  ISRTH0  ) 
C 

C     Print  values  of  matrix  elements. 

C 

PRINT  1,  (KZ(I),  IH0(I),  ISRTH0(I),  1=1,  NSIZE  ) 

C 

C     Evaluate  (IE-IPO)  by  matrix  inversion  for  pulse-everywhere 

C  expansion. 

C 

CALL  LTPLZ ( ISRTH0 , IH0 , Zl , A , Al , NSI ZE , RHS , RESULT , NCASES , XNORM, lER) 

IF(  lER  .NE.  0  )  GO  TO  10 

C 

C     Print  out  results  for  (IE-IPO)  for  pulse-everywhere  expansion. 

C 

ROOT  =  .FALSE. 

CALL  PNTOWT(  TAD,  NSIZE,  NCASES,  KZ,  lEMPO,  RHS,  RESULT,  ROOT,  H) 

STOP 
10  PRINT  5 
5  FORMAT( '0CAME  TO  10  IN  MAIN.'  ) 

STOP 

END 
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C  Subroutine  ISPMOM  fills  the  matrices  that  are  required  as  input 
C  to  the  matrix  inversion  routine  LTPLZ  for  the  hybrid  basis  function 
C  case.  These  arrays  are  ISRTH0,  IHO,  and  RHS.  All  other  parameters 
C  in  the  parameter  list  are  either  inputs  or  dimensioned  arrays.  IH0 
C  is  an  output  vector  of  length  NSIZE  which  is  filled  with  numbers 
C  corresponding  to  the  first  column  of  the  Toeplitz  matrix  which 
C  results  when  double-wide  pulses  are  used  throughout  as  basis 
C  functions.  ISRTH0  is  an  output  vector  of  length  NSIZE  which  is 
C  filled  with  numbers  corresponding  to  the  l/SORT(z)  half-wide  initial 
C  subsection.  RHS  is  an  output  arrav  of  length  NC*NSIZE  which  is 
C  filled  with  the  values  of  the  Right-Hand  Side  for  (IE-IPO)  for  each 
C  of  the  angles  of  incidence  THETAD=45,  90,  135,  and  180.  KZ  is  an 
C  output  array  of  lengtn  NSIZE  and  contains  the  values  of  the  match 
C  points.  NC,  TAD,  DEZ,  NSIZE,  NH ,  NMAX ,  and  PNTOPT  are  all  input 
C  parameters.  NC  is  the  number  of  cases  or  angles  to  be 
C  considered (NC=4) .  TAD  is  an  array  of  the  angles  and  is  of  length 
C  NC.  DEZ  is  one  over  the  subsection  width.  NSIZE  is  the  number  of 
C  subsections.  NH  is  the  number  of  terms  to  be  taken  in  sums  of 
C  weighted  Hankel  functions  and  must  be  32  or  less.  NMAX  is  the 
C  number  of  terms  to  be  taken  in  sums  of  Bessel  functions.  PNTOPT  is 
C  the  underflow/overflow  printing  option(see  HANKEL).  HNl  and  JIN  are 
C  arrays  of  length  NH(see  GTJN ,' HANKEL) .  JN ,  GORH ,  SK,  and  UN  are 
C  arrays  of  length  NMAX(see  BESSEL,  SKS,  and  UNS) .  ISPMOM  directly 
C  calls  GTJN,  SELFTM,  SELFSN,  SUMINC,  IA2BH0 ,  BESSEL,  HANKEL,  SKS, 
C  SUMHJI,  and  UNS.  Refer  to  each  of  these  routines  for  a  list  of  the 
C  subprograms  that  each  in  turn  calls. 
C 

SUBROUTINE  ISPMOM (NC ,TAD , DEZ , NSIZE ,KZ , IH0 , ISRTH0 , RHS ,NH , HNl , NMAX , 
1  JN, JIN, SK, UN, GORH, PNTOPT) 

C0MPLEX*18  SELFTM,  SELFSN,  IH0(1),  ISRTH0(1),  ESUM,  RHS(1),H01, 
1  HNl(l),  IA2BH0,  SUM,  IZIH01 

REAL*8  H,  JI0,  JIN(l),  ZETA,  KZ(1),  THETAD,  TAD(l),  UPLIM,  LOWLIM, 
1  FN,  DFLOAT,  J0 ,  JN(1),  S0 ,  SK(1),  UN  ( 1 )  ,  DEZ,  TDEZ 

INTEGER  NM,  NMAX,  PNTOPT,  PN ,  OFFSET,  J,  NH ,  N,  NPl ,  NPNPl ,  NSIZE, 
1  NC,  I,  NSMl 

LOGICAL  GORH(l),  T/.TRUE./ 

TDEZ  =  2.D0*DEZ 

H  =  1.D0/TDEZ 

PN  =  PNTOPT 

NM  =  NMAX 

NSMl  =  NSIZE-1 

C 

C     Calculate  values  of  JIN  for  later  use  in  SUMHJI. 

C 

CALL  GTJN(  H,  NH ,  JI0,  JIN,  PN  ) 

ZETA  =  0.D0 

KZ (1)  =  0.D0 
C 

C      Fill  IH0  and  ISRTH0  matrices. 

C 

IH0(1)  =  SELFTM(H) 
ISRTH0(1)  =  SELFSN(H) 
DO  1  J  =  1,  NC 
OFFSET  =  (J-1) *NSIZE 
THETAD  =  TAD (J) 
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CALL  SfJMINC(ZETA,  THETAD,  1,  UN,  JN,  S0 ,  SK,  ESUM,  PN  ) 

1  RHS(  OFFSET  +  1  )  =  ESUM 
UPLIM  =  H 

DO  2  N=l,  NSMl 
NPl  =  N+1 
NPNPl  =  N+Nfl 
FN  =  DFLOAT(  NPNPl  ) 
ZETA  =  DFLOAT(N)/DEZ 
KZ(NPl)  =  ZETA 
LOWLIM  =  UPLIM 
UPLIM  =  FN/TDEZ 

IH0(NP1)  =  IA2BH0 (LOWLIM,  UPLIM  ) 
C 

C     Calculate  matrix  element  cor  responding  to  l/SORT(z)  initial 

C  subsection,  ISRTH0. 

C 

CALL  HANKEL(  ZETA,  NH ,  T,  H01,  HNl ,  &100,  PN  ) 
CALL  SUMHJI (  NH,  H01,  HNl,  JI0,  JIN,  SUM,  PN  ) 
ISRTH0(NP1)  =  SUM 
C 

C     Calculate  values  of  the  Riqht-Hand  Side. 

C 

CALL  BESSEL(  ZETA,  NM,  GORH,  J0 ,  JM,  &100,  PN  ) 

CALL  SKS(  ZETA,  NM,  S0 ,  SK ,  PN  ) 

DO  2  J  =  l,  NIC 

OFFSET  =  (J-1) *NSIZE 

THETAD  =  TAD (J) 

CALL  UNS(  THETAD,  NM,  UN  ) 

CALL  SUMINC(  ZETA,  THETAD,  NM,  UN,  JN ,  50,  SK,  ESUM,  PN  ) 

2  RHS(  OFFSET+NPl)  =  ESUM 
RETURN 

100  PRINT  3 

3  FORMAT(  '0FROM  ISPMOM,  WENT  TO  100.'        ) 
STOP 

END 
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C  Subroutine  PULMOM  fills  the  matrices  that  are  required  as  input 

C  to  the  matrix  inversion  routine  LTPLZ  for  the  oulse-everywhere  basis 

C  function  case.   DEZ,  NSIZE,  and  KZ  are  inputs  and  IH0  and  IHWH0   are 

C  outputs.    DEZ   is  one  over  delta  z,  the  subsection  width.   NSIZE  is 

C  the  number  of  subsections.   KZ  is  an  array  of  length   NSIZE   of   the 

C  match   points.    IH0  is  the  same  as  in  ISPMOM.   IHWH0  is  an  array  of 

C  length  NSIZE  filled  with  numbers   corresponding   to   the   half-width 

C  pulse   initial  subsection.   PULMOM  directly  calls  SELFTM  and  IA2BH0. 

C  Refer  to  these  routines  for  a  list  of  their  called  suborograms. 

C 

SUBROUTINE  PULMOM (  DEZ,  NSIZE,  KZ,  IH0 ,  IHWH0  ) 
INTEGER  NSIZE 

C0MPLEX*16  IH0(NSIZE),  IHWH0 (NSI ZE ) ,  SELFTM,  IZIH01,  IA2BH0 
REAL*8  DEZ,  KZ(NSIZE),  H,  FN,  DFLOAT,  ZETA,  LOWLIM,  UPLIM 
INTEGER  I,  N,  NPl ,  NPNPl ,  NSMl,  OFFSET 
H  =  l.D0/(2.D0*DEZ) 
C 

C      Fill  IH0  and  IHWH0. 

C 

IH0(1)  =  SELFTM(H) 
IHWHO(l)  =  IH0(1)/2.D0 
UPLIM  =  H 
NSMl  =  NSIZE  -  1 
DO  2  N=l,  NSMl 
NPl  =  N+1 
NPNPl  =  N+N+1 
FN  =  DFLOAT (  NPNPl  ) 
ZETA  =  KZ (  NPl  ) 
LOWLIM  =  UPLIM 
UPLIM  =  FN/(2.D0*DEZ) 
IH0(NP1)  =  IA2BH0(  LOWLIM,  UPLIM  ) 
2  IHWH0(  NPl  )  =  IA2BH0(  ZETA-H,  ZETA  ) 
RETURN 
END 
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C        Subroutine  SUMHJI  calculates  a  matrix  element   associated   with 

C    the   l/SORT(z)   edge  expansion  function  for  the  hybrid  case.   SUM  is 

C   given  by 

C 

C  NMAX 

C       SUM  =  JI0*H01  +  2  ^  (JIN*HN1) 

C  N  =  l 

C 

C   where  JI0  and  JIN  are  the  outputs  of  GTJN,  and  H01  and  HNl   are   the 

C    outputs   of   HANKEL.    NMAX   must   be   1  or  more,  but  32  or  less  (see 

C    HANKEL).   PNTOPT   is   the   underflow   printing   option (see   HANKEL). 

C    SUMHJI  calls  UNDRFL. 

C 

SUBROUTINE  SUMHJI (NMAX,  H01,  HNl,  JI0,  JIN,  SUM,  PNTOPT  ) 

C0MPLEX*16  SUM,  H01 ,  HNl(l),  S(2),  CBAR,  ZERO/ ( 0 . D0 , 0 . D0) / 

REAL*8  JIO,  JIN(l) ,  CC(2) 

INTEGER  NMAX,  KB,  K,  PNTOPT,  PNTOP 

LOGICAL  UFL 

EQUIVALENCE (  CBAR,  CC  ) 

EXTERNAL  UNDRFL 

C0MM0N/$2/  UFL 

C0MM0N/$3/  PNTOP 

UFL  =  .FALSE. 

PNTOP  =  PNTOPT 

IF(  PNTOP-1  )  100,  102,  100 
100  CALL  ERRSET(  208,  320,  -1,  1,  UNDRFL  ) 

GO  TO  1 
102  CALL  ERRSET(  208,  320,  0,  0,  UNDRFL  ) 

1  UFL  =  .TRUE. 
S(l)  =  JI0*H01 
S(2)  =  ZERO 

C 

C      Sum  in  the  BACKWARD  direction. 

C 

DO  2  K=l,  NMAX 
KB  =  NMAX  -  K  +  1 
C 

C     If  JIN  is  zero,  do  not  sum  for  this  K. 

C 

IF(  JIN(KB)  .EQ.  0.D0  )  GO  TO  2 
C 

C     If  the  overflow  flag  for  the  imaginary  part  of  HNl  is  detected, 

C         skip  this  term. 

C 

CBAR  =  HNl (KB) 

IF(  CC(2)  .EQ.  -1.D70  )  GO  TO  2 

S(2)  =  S(2)  +  HNl (KB)*JIN(KB) 

2  CONTINUE 

UFL  =  .FALSE. 

SUM  =  S(l)  +  S(2)  +  S(2) 

RETURN 

END 
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C        Subroutine  SU 

C  for   a   given   dis 

C  right-hand  side  is 

C  weighted  with  Bess 

C  coined   as   S.    E 

C  10.3  (10)  ,   cages 

C  Functions."     UN 

C  is   the  output  arr 

C  Refer  to  these  rou 

C  printing   option(s 

C  taken  and  must  be 

C  places  are  generat 

C  and  40  are  accurat 

C  SUMINC  calls  UNDRF 

C 


C- 

C 

C- 


MINC  evaluat 
placement  X 
evaluated  a 
el  functions 
SUM  is  eva 
239  and  24 
is  the  outpu 
ay  of  BESSEL 
tines  for  th 
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Accurate  results  to  abo 
85  and  X=20.  Results  f 
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for   (lE- 

IPO) 
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UN 
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JN 

outputs  of 

SKS. 
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of  terms  to  be 

ut   10   decimal 

or  X  between  20 

when   NMAX 

=  85. 

SUBROUTINE  SUMINC(  X,  THETAD,  NMAX,  UN,  JN ,  S0 ,  SK,  ESUM,  PNTOPT 

C0MPLEX*16  DCMPLX,  ESUM,  Tl ,  T2 ,  IB,  1/ ( 0 . D0 , 1 . D0) / , 
1   ZERO/(0.D0,0.D0)/ 

REAL*8  X,  THETAD,  UN  ( 1 )  ,  JN ( 1 )  ,  S0  ,  SK(1),  SJ(2),  SY(2),  DLOG , 
1  DABS,  DSIN,  DCOS,  PRODJ ,  PRODY ,  THETA,  CTA,  STA,  ARC 

REAL* 8  TWOOPI/0. 6366197 72367 58134 308D0/, 
1  GAMMA/0. 577 21 5664901 5328606 1D0/, PI/3. 141 5926 53 58979323846D0/ 


100 


INTEGER  NMAX, 
LOGICAL  UFL 
EXTERNAL  UNDRFL 
C0MM0N/$2/  UFL 
C0MM0N/$3/  PNTOP 
IF(  X  .EO.  0.D0 
UFL  =  .FALSE. 
PNTOP  =  PNTOPT 
IF(  PNTOP-1  )  100 
CALL  ERRSET(  208, 
GO  TO  1 

ERRSET(  208, 
=  NMAX-1 

=  0  .D0 

=  0.D0 

=  0.D0 

=  0.00 


KB,  K,  PNTOPT,  PNTOP,  NMMl,  MOD,  LI 


)  GO  TO  7 


10; 
320 


100 
-1,  1 


UNDRFL 


02 

CALL 

1 

NMMl 

SJ(1) 

SY(1) 

SJ(2) 

SY(2) 

320,  0,  0,  UNDRFL 


Perform  sums  in  BACKWARD  direction, 


C- 

C 

C- 


DO  6  K  =  1,  NMMl 

KB  =  NMMl-K+1 

UFL  =  .TRUE. 

PRODJ  =  UN (KB) *JN(KB+1) 

PRODY  =  UN(KB) *SK(KB) 

UFL  =  .FALSE. 


Treat  i**K  by  making  appropriate  jumps, 


LI  =  MOD(KB,  4  )  +  1 
GO  TO  (2,3,  4,5) ,  LI 
PRINT  10 
10  FORMAT('0',  75X,  'BAD  GO  TO  IN  SUMINC. 
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C- 

C 

C- 


STOP 

SJ(1)  = 

SY(1)  = 

GO  TO  6 

SJ(2)  = 

SY(2)  = 

GO  TO  6 

SJ(1)  = 

SY(1)  = 

GO  TO  6 

SJ(2)  = 

SY(2)  = 
CONTINUI 

SJ(1)  = 

SY(1)  = 


SJ(1 
SY(1 

SJ(2 
SY(2 

SJ(1 
SY(1 

SJ(2 
SY(2 

SJ{1 
SY(1 


+  PRODJ 
+  PRODY 

-  PRODJ 

-  PRODY 

-  PRODJ 

-  PRODY 

+  PRODJ 
+  PRODY 

+  JN{1) 
+  S0 


C- 

c 

c- 


Complete  the  evaluation  of  ESUM. 


THETA  =  (THETAD/180.D0) *PI 

CTA  =  DCOS(  THETA  ) 

IF{  THETAD  .EQ.  90. D0  )  CTA  =  0 . D0 

STA  =  DSIN(  THETA  ) 

Tl  =  DCMPLX(  SJ(1) ,  SJ(2)  ) 

T2  =  DCMPLX(  SY(1),  SY(2)  ) 

IB  =  Tl+TWOOPI*!* ( {GAMMA+DLOG(X/2.D0) ) *T1   -  T2  ) 

ARG  =  X*CTA 

ESUM  =  4.D0*( (THETAD/180.D0)*DCMPLX(DCOS(ARG) ,-DSIN(ARG) ) -  STA*IB) 

RETURN 


Treat  the  special  case  X=0. 


7  ESUM  =  DCMPLX(  4 . D0* (THETAD/180 . 00 ) ,  0.D0  ) 
RETURN 
END 
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C  Subroutine    UNS    evaluates     the    Chebys'nev    polynomials 

C  UN(  cos(THETi\)  )   for   N   from   one  to  NMAX  (UO  (cos  (THETA)  )  =1)  .   The 

C  recursion   relation   3.5.1(14)   from   Luke's   book,    "The    Special 

C  Functions  and  Their  Approximations"  is  used.   The  result  accumulates 

C  error  quickly,  so  special  measures  were  taken  to  insure   10   decimal 

C  place  accuracy  for  NMAX  up  to  35  and  for  any  THETA  between  0  and  180 

C  degrees  which  is  an  exact  multiple  of   15   degrees.    THETA   is   the 

C  angle   of   incidence   in   degrees.   NMAX  is  the  order  of  the  highest 

C  order  Chebyshev  polynomial  to  be  found.   UN  is  an   array   of   length 

C  NMAX   containing   the  values  of  UN (  cos(THETA)  ).   These  numbers  are 

C  used  in  SUMINC.   UNS  is  complete   by   itself.    It   calls   no   other 

C  suborograms. 

C 1 

SUBROUTINE  UNS(  THETA,  NMAX,  UN  ) 
REAL*8  THETA,  X,  DCOS ,  F,  UN  ( 1 )  ,  TA ,  RTA 
REAL*8  PI/3.141592653539793D0/ 
INTEGER  NMAX,  I,  ITHETA,  MOD,  ICHECK 
RTA  =  PI* (THETA/130.D0) 
X  =  CCOS(RTA) 
UN  (1)  =  X  +  X 

IF(  THETA  .EQ.  90. D0  )   UN ( 1 )  =  0 . D0 
IF(  NMAX  .EQ.  1)  RETURN 
F  =  UN(1) 

UN(2)  =  F*F  -  1.D0 

IF(  THETA  .EQ.  60.00  )  UN ( 2 )  =  0 . D0 
IF(  NMAX  .EQ.  2  )  RETURN 
C 

C      Determine  if  THETA  is  a  multiple  of  15. 

r 


ITHETA  =  THETA 
TA  =  ITHETA 

IF(  (THETA-TA)  .NE.  0 . D0  )  GO  TO  2 

IF(  MODdTHETA,  15)  .NE.  0  .OR.  MOD  ( ITHETA ,  180 )  .EQ.  0  )  GO  TO  2 
ICHECK  =  ITHETA  +  ITHETA  +  ITHETA 
C 

C      Evaluate  UN  for  THETA  multiple  of  15. 


r. 


DO  1  1=3,  NMAX 

ICHECK  =  ICHECK  +  ITHETA 

UN(I)  =  F*UN(I-1)  -  UN(I-2) 

IF(    MODdCHECK,    180)     .EQ.    0    )     UN  ( I )     =    0 .  D0 
1    CONTINUE 

RETURN 

C 

C      Evaluate  UN  for  THETA  not  a  multiple  of  15, 


r. 


2  DO  3  I  =  3,  NMAX 

3  UNd)  =  F*UN{I-1)  -  UN(I-2) 
RETURN 

END 
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C  Subroutine  SKS  evaluates  the  terms  which  don't  depend  on   THETA 

C  of   the   non-logarithmic   term   of   the   integral   from  zero  to  X  of 

C  exp(itcos (THETA) ) Y0  (t) dt  as  given  by  10.3(10a)  on  page  240  of  Luke's 

C  "Integrals   of   Bessel  Functions."   This  is  an  infinite  power  series 

C  depending  on  m  and  k(see  Luke) .   The  function  name  was  coined  to   be 

C  S(K,X).   S0  is  the  value  of  this  function  for  K=0  and  SK  is  an  array 

C  of  values  for  K  from  1  to  NMAX.   These  numbers  are  used   in   SUMINC. 

C  For   X   less   than   20,   NMAX  should  be  at  least  51  for  convergence. 

C  PNTOPT  is   the   underflow   printing   option(see   HANKEL) .    SKS   was 

C  checked   by   comparison   of   these   results   with   those  obtained  by 

C  expanding  S  in  a  series  of  Bessel  functions,  eq .  10.3(10b)  of   Luke. 

C  SKS  calls  UNDRFL. 

C 

SUBROUTINE  SKS (  X,  NMAX,  S0 ,  SK,  PNTOPT  ) 

REAL*8  X,  S0,  SK(1),  KFACTR,  HMF ,  X02,  X02SQ,  H0 ,  FK,  H,  P, 
1  MFACTR,  FM,  FMKl ,  DABS  ,  DFLOAT 

INTEGER  NMAX,  PNTOPT,  PNTOP,  KPl ,  K  ,  M,  NMPl 

EXTERNAL  UNDRFL 

LOGICAL  UFL 

C0MM0N/$2/  UFL 

C0MM0N/$3/  PNTOP 

UFL  =  .FALSE. 

PNTOP  =  PNTOPT 

IF(  PNTOP  -  1  )  100,  102,  100 
130  CALL  ERRSET(208,  320,  -1,  1,  UNDRFL  ) 

GO  TO  1 
102  CALL  ERRSET{  208,  320,  0,  0,  UNDRFL  ) 

1  NMPl  =  NMAX+1 
X02  =  X/2.D0 
X02SQ  =  X02*X02 
KFACTR  =  1.D0 
H0  =  0.D0 

DO  5  KPl  =  1,  NMPl 

K  =  KPl  -  1 

FK  =  DFLOAT(K) 

IF(  KFACTR  .EQ.  0 . D0  )  GO  TO  3 

H0  =  H0  +  l.D0/(FK+l.D0) 

H  =  H0 

P  =  H0 

MFACTR  =  1.D0 

M  =  l 

2  FM  =  DFLOAT (M) 
FMKl  =  FM+FK+1.D0 
H  =  H  +  1.D0/FMK1 

MFACTR  =  -MFACTR* (X02SQ/(FM* FMKl) ) 

HMF  =  H*MFACTR 

P  =  P  +  HMF 

C 

C     Test  for  convergence  to  15  decimal  places. 

C 

IF(  DABS{  HMF  )  . LT .  1 . D-1 5  )  GO  TO  3 

M  =  M  +  1 

GO  TO  2 

3  UFL  =  .TRUE. 

KFACTR  =  KFACTR* (XO2/(FK  +  1.D0)  ) 
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UFL  =  .FALSE. 
C 

C     Catch  underflow  before  it  occurs (possibly) . 

C 

IF(  DAB3(KFACTR)  .LT.  l.D-70)   KFACTR  =  0.D0 
IF(  K  .NE.  0  )  GO  TO  4 
S0  =  P*KFACTR 
GO  TO  5 

4  SK(K)  =  P*KFACTR 

5  CONTINUE 
RETURN 
END 
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C  Function  I0XH01  evaluates   the   integral   from   zero   to   X   of 

C  H01(t)dt   using   Chebyshev   polynomials  as  given  in  Table  27  on  page 

C  334  of  Volume  II  of  Luke's  book,  "The  Special   Functions   and   Their 

C  Approximations."   This   routine   is  used  to  evaluate  elements  in  the 

C  matrix  for  pulse  expansion  functions.   I0XH01   is   used   by   IA2BH0, 

C  IZIH01,  and  SELFTM.'  I0XH01  calls  EAT2P1. 

C 

COMPLEX  FUNCTION  I0XH01*16(X) 

IMPLICIT  REAL*8  (D) 

C0MPLEX*16  DCMPLX 

REAL*8  XX,  X,  X08,  GAMMA,  TWOOPI,  IJ0 ,  SUMY,  A{17),  B(17) 

DATA  A/0. 00150D-15,  -0 . 09949D-15 ,  5.79477D-15,  -0 . 00 29408710D-10 , 

1  0 .1286892765D-10  ,  -4 . 7960704238D-10 ,  0 . 001500207418136D-5 , 

2  -0.038695337761818D-5,  0 . 805230017147464D-5 ,  -13 . 148973200727470D 
3-5,  0.00162455576482273217D0,     -0 .01444107253850054169D0 , 

4  0.08576038744155828731D0,        -0 . 30180691211699830875D0 , 

5  0.50821888566078927112D0,       -0 . 36520274074158537488D0 , 

1  1.29671754121052984167D0/,B/0.00324D-15,  -0 . 21031D-15 , 

2  11.99595D-15,  -0 .0059495975D-10 ,  0 . 2537749742D-10 , 

3  -9.1898449486D-10,  0 .002781957053702D-5 ,  -0 . 069083540549799D-5 , 

4  1.374382109086322D-5,  -21 . 244292114418655D-5 , 

5  0.0024475401499(194484000,       -0  .  019786797011 B0859820D0  , 

6  0.10180664216242309366D0,        -0 . 27450260739390063315D0 , 

7  0.19604604501712995275D0,       0 . 167071938181103396 20D0 , 

8  1.5232589274535890319200/ 

OATA   TWOOPI/0.6  366197  7  2  367  5  8134  3  0  800/, 
1         GAMMA/0.577  21566490153286  06100/ 
XX  =  DABS(X) 

IF(  XX  .GT.  8.00  )  GO  TO  2 
IF(  XX  .EO.  0.D0  )  GO  TO  1 
X08  =  XX*0. 12500 
C 

C     Sum  the  Chebyshev  series. 

r 


CALL  EAT2P1(X08,  16,  A,  IJ0  ) 
CALL  EAT2P1 (  X08 ,  16,  B,  SUMY  ) 

I0XH01    =    OCMPLX(IJ0,    TWOOPI* (GAMMA+OLOG(XX*0. 500)     )*IJ0-SUMY    ) 
RETURN 
C 

C     Treat  the  special  case  X=0. 

C 

1  I0XH01    =    OCMPLX(    0.00,    0.00    ) 
RETURN 

C 

C     STOP  if  X  is  greater  than  8. 

C 

2  PRINT  3,  XX 

3  FORMAT( '0 ',70X,  'I0XH01  WAS  CALLEO  WITH  ARGUMENT  X= ' ,G20 . 1 2 ,  '  . '//) 
STOP 

END 
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C  Function  IZIH01  evaluates  the  integral  from  X  to  infinity  of 
C  H01(t)dt  using  Chebyshev  polynomials  as  given  in  Table  27  on  page 
C  335  of  Volume  II  of  Luke's  book,  "The  Special  Functions  and  Their 
C  Approximations."  This  routine  is  used  to  evaluate  elements  in  the 
C  matrix  for  pulse  expansion  functions.  IZIH01  is  used  by  IA2BH0. 
C    IZIH01  calls  EATSTR. 

C 

COMPLEX  FUNCTION  IZIH01*16(X) 
IMPLICIT  REAL*8(D) 

C0MPLEX*16  DCMPLX,  I0XH01,  lOZ,  EOR,  ONE/ ( 1 . D0 , 0 . D0 ) / 
REAL*8  XX,  X,  FOX,  PI04 ,  R20PI,  XPPI04 ,  RC(26),  IC(26),  RECT ,  lECT 
DATA  RC/-0.03489D-15,  0.16683D-15,  -0 . 51320D-15 ,  1.07730D-15, 
1-0.80559D-15,  -5.70713D-15,  35 .07236D-15 ,-127 . 37706D-15 , 

2  238.66165D-15,  -151.483590-15,  -0 . 0242797151D-10 , 

3  0.1490480479D-10,  -0 . 515179 1688D-10 ,  0 . 8916779341D-10 , 

4  2.3353692269D-10,  -27 . 8292764282D-10 ,  128 . 5294903326D-10 , 

5  -288.5706468353D-10,  -0 .0106999598184390-5 ,  0.1411408894672070-5, 
6-0.68286101720  280  80-5,-0.20  8  3713476  09  4140-5,36.927699  26  55139  370-5, 

7  -0.0032741117973392401100,       -0.3162295522389878353800, 

8  0.9874076158148842627000/,  IC/   -0.054630-15,0.073870-15, 

1  0.091610-15,-1.062720-15,  4.393960-15,  -12.152650-15, 

2  19.765750-15,17.950820-15,  -292.987390-15,  0.01338438450-10, 

3  -0.03821660650-10,  0 .04800150780-10 ,  0.21633443010-10, 

4  -1. 86161171650-10,  7.57412492460-10,-15.36724968610-10, 

5  -37.8906  5  394850-10,0.00  534  4  50  98  226  5  30-5,-0.0264766  396  967660-5, 

6  0.04376239  2901943  0-5,  0.4961533956282970-5,-5.4621576498134840-5, 

7  0.196477776330322590-3,         0.2404041070872611570-2, 

8  -0.0556179374241152295000,       -0.0  577666747409945144400   / 
OATA  PI04/. 7853981 53 397 448 3096 200/, R20PI/. 797884 560 80286 53 558800/ 

XX  =  DABS(X) 

IF{  XX  .LT.  7.00  )   GO  TO  1 

XPPI04  =  XX+PI04 

EOR  =  R20PI*DCMPLX{OCOS(XPPI04) ,DSIN(XPPI04))/0SQRT(XX) 

FOX  =  5.00/XX 
C 

C     Sum  the  Chebyshev  series. 

C 


CALL  EATSTR(  FOX,  25,  RC ,  RECT  ) 
CALL  EATSTR(  FOX,  25,  IC ,  lECT  ) 
IZIH01  =  EOR*DCMPLX(RECT,  lECT) 
RETURN 

C 

C     Treat  the  case  when  X  is  less  than  7, 
C 


1  lOZ  =  I0XH01(XX) 
IZIH01  =  ONE-IOZ 
RETURN 
ENO 
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C  Function  IA2BH0  evaluates  matrix  elements  for   pulse   expansion 

C  functions  by  taking  the  difference  between  I0XH01  evaluated  at  B  and 

C  A  or  between  IZIH01  evaluated  at  A  and  B.   Approximately  two  decimal 

C  places   of   accuracy  are  lost  in  taking  this  difference  for  B=A+0.1. 

C  More  or  less  decimal  olaces  will  be  lost   depending   on   the   actual 

C  relation   between   A  'and   B.    IA2BH0  is  used  by  ISPMOM  and  PULMOM. 

C  IA2BH0  calls  either  IZIH01  or  I0XH01. 

C 

COMPLEX  FUNCTION  IA2BH0*16(A,  B) 

C0MPLEX*16  X,  Y,  IZIH01,  I0XH01 

REAL* 8  A,  B,  AA ,  BB ,  DABS 

AA  =  DABS (A) 

BB  =  DABS(B) 

I  =  IDINT(AA*0.14D0  ) 

J  =  IDINT(  BB*0.14D0  ) 

C 

C     Check  to  see  if  A  and  B  are  greater  or  less  than  7. 

C 

IF(  I+J  .EQ.  0  )   GO  TO  027 
7200  X  =  IZIH01(AA) 

Y  =  IZIH01 (BB) 
IA2BH0  =  X-Y 
RETURN 

027  X  =  I0XH01(BB) 

Y  =  I0XH01(AA) 
IA2BH0  =  X-Y 
RETURN 

END 


C        Function  SELFTM  evaluates  the  self  terms   for   the   double-wide 
C    pulse   expansion   functions   of   width   2A  with   match  point  in  the 
C    center.   SELFTM  is  used  by  ISPMOM  and  PULMOM. 
C 

COMPLEX  FUNCTION  SELFTM*16(A) 

C0MPLEX*16  X,  IZIH01,  I0XH01,  ONE/ ( 1 . D0 , 0 . D0) / ,  TWO/ { 2 . D0 , 0 . D0 ) / 
REAL*8  A,  AA,  DABS 
AA  =  DABS (  A  ) 
I  =  IDINT(  AA*0.14D0  ) 
IF(  I  .EQ.  0  )  GO  TO  027 
7200  X  =  IZIH01 (AA) 

SELFTM  =  TWO*(ONE-X) 
RETURN 
027  SELFTM  =  TWO* I0XH01 ( AA) 
RETURN 
END 
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C  Function  SELFSN  evaluates  the  integral  from  0  to  H  of 
C  (l/SQRT(t) ) H01 (t) dt.  The  Chebyshev  coefficients  were  derived  by 
C  methods  given  by  Luke  in  "The  Special  Functions  and  Their 
C  Approximations."  The  coefficients  are  given  elsewhere  in  this  work. 
C  SELFSN  is  used  in  ISPMOM. 
C 

COMPLEX  FUNCTION  SELFSN*16(H) 

C0MPLEX*16  DCMPLX 

REAL*8  DSQRT,  H,  A(7),  B{7),  GAMMA,  TWOOPI,  DLOG ,  Y{2),  HSQ 

DATA  A/     0.00000000000001811537D0,  -0 . 00000000001239581279D0 , 

1  0.00000000610822490741D0,  -0 .00000203737032104096D0 , 

2  0.00042158076965671394D0,  -0 .04829484254533680521D0 , 

3  1.95128143319304558436D0  / 

DATA  3/    -0.00000000000002915405D0,     0 .  00000000001374935286D0 , 

1  -0.00000000854475942331D0,     0 .00000257078475742030D0 , 

2  -0.00046027182338672611D0,     0 . 04269902252343120894D0 , 

3  -2.50331721577521205291D0    / 
DATA  TWOOPI/0. 6 366 1977 2367 581 3 430800/ , 

1      GAMMA/0. 577 21 566490 15328606100/ 

IF(  H  .EO.  0.D0  )  GO  TO  2 

IF(  H  .GT.  1.D0  )  GO  TO  10 

HSO  =  H*H 
C 

C     Perform  evaluation  of  Chebyshev  series. 

C 

CALL  EATSTR(  HSQ,  6,  A,  Y(l)  ) 

CALL  EATSTR(  HSQ,  6,  B,  Y(2)  ) 

SELFSN=DCMPLX { Y ( 1 ) , TWOOPI * ( GAMMA+DLOG ( H/2 . D0 ) ) * Y ( 1 ) +Y ( 2 ) ) *DSQRT ( H) 

RETURN 
2  SELFSN=  DCMPLX (  0.00,  0.00  ) 

RETURN 
10  PRINT  1,  H 
1  FORMAT (  '0',  75X,  'SELFSN  WAS  CALLED  WITH  ARG= ' ,  1PD12.4/) 

STOP 

END 
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C  Subroutine  GTJN  is  used  in  evaluating  matrix  elements   for   the 

C  l/SQRT(z)   expansion  function  present  in  the  hybrid  expansion  and  is 

C  used  with  SUMHJI  and  HANKEL.   GTJN  evaluates  the  integral  from  0   to 

C  H  of  (l/SQRT(t) ) JN(t) dt  for  N  from  0  to  NMAX.   ITJ0  is  the  value  for 

C  N=0  and  ITJN  is  an  array  of  length  NMAX  which   contains   the   values 

C  for   N=l   to   NMAX.    PNTOPT   is   the   underflow  printing  option (see 

C  HANKEL).   The  power  series  expansion  given  by  2.2(1)  on  page   44   of 

C  Luke's,    "Integrals   of    Bessel   Functions"   is   used   for   these 

C  evaluations.   Numbers  were   checked   by   comparison   of   this   oower 

C  series   with   Luke's   equivalent   expansion   in   series   of   Bessel 

C  functions,  eq .  2.4(1),  page  51  of  "Integrals  of   Bessel   Functions." 

C  GTJN  calls  UNDRFL  and  EATSTR. 

C 

SUBROUTINE  GTJN (  H,  NMAX,  ITJ0 ,  ITJN,  PNTOPT  ) 

REAL* 8  ITJ0  ,  ITJN(l),  H,  H02 ,  H02SQ,  P,  Q,  R,  DSQRT,  SH ,  ^^K,  AN, 
1  DFLOAT,  QP,  DABS,  A (7) 
INTEGER  N,  K,  NMAX,  PNTOPT,  PNTOP 
LOGICAL  UFL 
C0MM0N/$2/  UFL 
C0MM0N/$3/  PNTOP 
DATA  A/     0.00000000000001811537D0,    -0.0003000000123958127900, 

1  0.00000000610822490741D0,    -0 . 0000O203737032104095D0 , 

2  0.00042168076955671394D0,    -0 .04829484254633680521D0 , 

3  1.95128143319304658436D0      / 
PNTOP  =  PNTOPT 

IF(  PNTOP-1  )  100,  102,  100 
100  CALL  ERRSEr{  208,  32,  -1,  1,  UNDRFL  ) 

GO  TO  10  4 
102  CALL  ERRS5T(  208,  32,  0,  0,  UNDRFL  ) 
104  R  =  H*H 

SH  =  DSQRT(H) 
H02  =  H/2.D0 
H02SQ  =  H02*H02 

C 

C     If  H  is  greater  than  1.D0,  STOP. 

C 

IF(  H  .GT.  1.D0  )  GO  TO  10 
C 

C     Evaluate  ITJ0  in  a  series  of  Chebyshev  polynomials. 

C 

CALL  EATSTR(  R,  6,  A,  ITJ0  ) 
ITJ0  =  ITJ0*SH 
IF(  NMAX  .EQ.  0  )  RETURN 
P  =  1.D0 
UFL  =  .TRUE. 
DO  4  N=l,  NMAX 
AN  =  DFLOAT (N) 
P  =  P*H02/AN 
R  =  2.D0/(AN+AN+1.D0) 
Q  =  1.D0 
K  =  l 
2  AK  =  DFLOAT (K) 

0  =  -Q*H02SQ/(AK* (AN+AK) ) 
QP  =  Q/(AK+AK+AN+0.5D0) 
R=R+QP 
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C 

C     Check  for  convergence  to  15  decimal  places. 

C 

IF(  DABS(OP)  -LT.  l.D-15  )  GO  TO  3 
K  =  K  +  1 
GO  TO  2 

3  ITJN(N)  =  SH*P*R 

C 

C     Catch  underflow  before  it  occurs (oossibly) . 

C 1 

IF(  DABS(  ITJN(N)  )  .GT.  l.D-70  )   GO  TO  4 

ITJN(N)  =  0.D0 

P=0.D0 

Q=0.D0 

R=0.D0 

4  CONTINUE 

UFL  =  .FALSE. 
RETURN 
10  PRINT  1,  H 
1  FORMAT(  '0',  75X,  'GTJN  WAS  CALLED  WITH  ARG= ' ,  1PD12.4/) 
STOP 
END 
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C        Subroutine   BESSEL   eval 

C  argument   X  and  for  orders  N 

C  in  ISPMOM  to  provide  values  f 

C  occur   when   the  recurrence  r 

C  direction.   For  this  reason, 

C  backward   direction   to   form 

C  details  are  too  lengthy  to  de 

C  Blanch,   "SIAM   Review",   V.6 

C  array  of  length  NMAX  that  is 

C  value   of  J0  and  JN  is  an  arr 

C  of  JN  for  N  from  1  to  NMAX. 

C  program  should  jump  when  eith 

C  is  the  underflow  printing  opt 

C  at   least   12   decimal  olaces 

C  GORHVU. 

r 


uates  the  Bessel  functions  JN  for 
from  zero  through  NMAX.  BESSEL  is  used 
or  SUMINC.  Extreme  numerical  problems 
elation  is  used  directly  in  the  forward 
the  recurrence  relation  is  used  in  the 
a  continued  fraction  expansion.  The 
scribe  here.  The  method  is  due  to  G. 
,  no.  4,  Oct.  1964.  GORH  is  a  logical 
required  by  Blanch's  method.  J0  is  the 
ay  of  length  NMAX  containing  the  values 
*  is  a  label  to  where  the  calling 
er  X  or  NMAX  is  less  than  zero.  PNTOPT 
ion  (see  HANKEL)  .  BESSEL  is  accurate  to 
BESSEL  calls  UNDRFL,  H01S,  HllS,  and 


SUBROUTINE  BESSEL (  X,  NMAX,  GORH,  J0 ,  JN,  *,  PNTOPT  ) 
IMPLICIT  REAL*8(A-H,  O-Z,  $),  INTEGER(  I-N  ) 
C0MPLEX*16  H01S,  HllS,  HC 
REAL*8  J0 ,  JN(1) ,  F(2) 
INTEGER  V,  PNTOPT,  PNTOP ,  VPl 
LOGICAL  GORH(l),  LP,  UFL 
EQUIVALENCE (  HC ,  F  ) 
EXTERNAL  UNDRFL 
C0MM0N/$2/  UFL 
C0MM0N/$3/  PNTOP 
UFL  =  .FALSE. 
DO  1  I  =  1,  NMAX 
1  GORH (I)  =  .FALSE. 
NM  =  NMAX 
NMMl  =  NM-1 
XX  =  X 

PNTOP  =  PNTOPT 

IF(  XX. LT.  0.D0   .OR.   NM.LT.  0   )   RETURNl 
IF(  XX  .EQ.  0.D0   )   GO  TO  44 
C 

C     Evaluate  J0  using  Chebyshev  polynomial  expansion. 

C 

HC  =  H01S{XX) 

J0  =  F{1) 

IF(  NM  .EQ.  0  )   RETURN 

C 

C     Evaluate  JN(1)  using  Chebyshev  polynomial  expansion. 

C 

HC  =  HllS(XX) 

JN(1)  =  F(l) 

IF(  NM  .EQ.  1  )   RETURN 

A  =  2.D0/XX 

C 

C     A  maximum  of  32  underflows  may  occur  before  program  termination, 
C 

IF(  PNTOP-1  )  100,  102,  100 
100  CALL  ERRSET(  208,  32,  -1,  1,  UNDRFL  ) 

GO  TO  8 
10  2  CALL  ERRSET(  208,  32,  0,  0,  UNDRFL  ) 
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8  J  =  IDINT(  XX  ) 

IF(  J  .LT.  NM  )  J  =  NM 
I  =  J 
10  M  =  I 

IF(  A*DFLOAT(I)  .GE.  2.5D0   )   GO  TO  12 
1  =  1  +  1 
GO  TO  13 
C 

C     NPJCNV  is  N+J  such  that  convergence  is  obtained.   See  Blanch 

C         paoer . 

C 

12  N  =  M  +  5 
P  =  0.D0 
NPJCNV  =  M 

14  N  =  N+  5 
Q  =  P 

P  =  0.D0 

DO  15  J  =  NPJCNV,  N 

Ml  =  N  +  NPJCNV  -  J 

15  P  =  l.D0/{DFLOAT(Ml) *A  -  P) 

15  IF(  DABS(P-Q)  .GT.  ( 1 . D-15) *DABS (P)   )     GO  TO  14 
GHP  =  P 
LP  =  .FALSE. 
NPJMl  =  NPJCNV  -  1 
IF{  NPJCNV  .EQ.  NM  )   GO  TO  20 
C 

C     Evaluate  G(NMAX)  or  H(NMAX)  from  G(NPJCNV).   See  Blanch  paper. 

C 

DO  18  J  =  NM,  NPJMl 

Ml  =  NM  +  NPJMl  -  J 
18  CALL  GORHVU{  Ml,  A,  GHP,  LP   ) 
20  JN(NM)  =  GHP 

GORH(NM)  =  LP 

IF(NM  .EQ.  2)  GO  TO  24 

DO  22  J=3,  NM 

Ml  =  NM+3-J 

MlMl  =  Ml-1 

GHP  =  JN(Ml) 

LP  =  GORH(Ml) 

CALL  GORHVU(  MlMl,  A,  GHP,  LP  ) 

JN(MIMI)  =  GHP 
22  GORH(MIMI)  =  LP 

C 

C     Evaluate  JN{2).   See  Blanch  paper. 

C 

24  UFL  =  .TRUE. 

IF(  G0RH(2)  )  GO  TO  26 

JN(2)  =  JN(1)*JN(2) 

GO  TO  29 
26  IF(  DABS(J0)  .GT.  DABS(JN(1)  )  )  GO  TO  28 

JN(2)  =  JN(1)/JN(2) 

GO  TO  29 

28  JN(2)  =  J0/{JN(2)*A  -  1 . 00  ) 

29  IF(  DABS(JN(2)  )  .LT.  l.D-70)  JN(2)  =  0 . D0 
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C 

C     Evaluate  JN(VPl),  VP1=3 , . . . ,NMAX.   See  Blanch  paper. 

C 

DO  36  V  =  2,  NMMl 

VPl  =  V+1 

IF(  GORH(VPl)  )  GO  TO  30 

JN(VPl)  =  JN(V) *JN(VP1) 

GO  TO  34 
30  IF(  DABS(JN(V-1)  )  .GT.  DA6S(JN(V))  )  GO  TO  32 

JN{VP1)  =  JN{V)/JN(VP1) 

GO  TO  3  4 
32  JN(VPl)  =  JN(V-1)/(JN(VP1)*A*DFL0AT{V)  -  1.D0) 
C 

C     Abort  possible  later  underflows. 

C 1 

34  IF(  DABS(JN(VP1)  )  .LT.  l.D-70  )   JN(VPl)  =  0 . D0 
36  CONTINUE 

UFL  =  .FALSE. 

RETURN 
C 

C     Treat  the  special  case  X=0. 

r 

44  P=0.D0 

J0  =  1.D0 

DO  45  V=l,  NM 

45  JN(V)  =  P 
RETURN 
END 
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C        Subroutine   HANKEL   eva 

C  argument   X  and  for  orders  N 

C  in   ISPMOM   to   provide   val 

C  HNl=J(n) +iY(n) .    The   recur 

C  J{2)  through  J(K=X)  and  Blan 

C  for  the  J's  from  J(K=X)  thro 

C  relation  is  used  for  all  Y's 

C  overflow   occur   the  resulta 

C  -l.D7i3.   Due  to  internal  arr 

C  less(BESSEL   was   written   t 

C  return  option:   JORH  =  .TRUE 

C  JORH   =  .FALSE.:   Return  the 

C  H01  is  the  value  of  H01.   HN 

C  from   one   to  NMAX.   *  is  a 

C  when   either   X   or   NMAX   i 

C  overflow/underflow  printing 
C       PNTOPT=0 :   Print  nothing; 
C       PNT0PT=2:   Print  one  line 

C  HANKEL  is  accurate  to  at  lea 

C  UNDRFL,  OVERFL,  H01S,  HllS, 

C 


C- 

C 

C- 


luates   the   Hankel   functions   HNl   for 
from  zero  through  NMAX.   HANKEL  is  used 
ues   for   SUMHJI.    In 
rence   relation  is  used 
ch's  continued  fraction 
ugh  J (NMAX) (see  3ESSEL) , 
from   Y(2)   through 


the    following, 

for  the  j's  from 

method   is   used 

The  recurrence 

Y(NMAX) .    Should 


nt  Y  and  all  higher  order  Y  s  are  set  to 
ay   dimensioning   NMAX   must   be   32   or 

0  avoid  this) .  JORH  is  the  JN  or  HNl 
.:   Return   the   Hankel   functions   HNl; 

Bessel  functions  JN  and  set  YN  to  zero. 

1  is  an  array  of  values  of  HNl(X)  for  N 
label  to  which  the  calling  program  jumps 
s  less  than  zero.  PNTOPT  is  the 
option : 

PNT0PT=1 :   Print  complete   statistics; 
r  . 

St  12  decimal  places.  HANKEL  calls 
and  GORHVU. 


SUBROUTINE  HANKEL {  X,  NMAX,  JORH,  H01,  HNl,  *,  PNTOPT  ) 

IMPLICIT  REAL*8(A-H,  0-Z,  $),  INTEGER(  I-N  ) 

C0MPLEX*16  DCMPLX,  H01 ,  HN1(1  ),  H01S,  HllS,  HC 

REAL*8  JN(33),  YN(33),  GH(33),  F(2) 

INTEGER  V,  PNTOPT,  FNTOP,  VPl 

LOGICAL  GCRH(33),  OBOY ,  YLOOP,  LP,  UFL,  JORH,  JORHS 

EQUIVALENCE (  HC ,  F  ) 

EXTERNAL  OVERFL,  UNDRFL 

C0MM0N/$1/  OBOY,  YLOOP 

C0MM0N/$2/  UFL 

C0MM0N/$3/  PNTOP 

OBOY  =  .FALSE. 

YLOOP  =  .FALSE. 

UFL  =  .FALSE. 

DO  1  I  =  1,  33 

GORH(I)  =  .FALSE. 

NM  =  NMAX 

NMPl  =  NM+1 

XX  =  X 

JORHS  =  JORH 

PNTOP  =  PNTOPT 

IF(  XX. LT.  0.D0 

IF(  XX  .EQ.  0.D0 

K  =  IDINT(  XX  ) 

IF(  K  .GT.  NM  ) 


.OR.   NM.LT.  0 
)   GO  TO  44 

K=NM 


)   RETURNl 


Evaluate  H01  using  Chebyshev  polynomial  expansion, 

H01  =  H01S(XX) 

HC  =  H01 

JN(1)  =  F(l) 

YN(1)  =  F(2) 

IF(  NM  .EO.  0  )   RETURN 
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C 

C     Evaluate  Hll  using  Chebyshev  polynomial  expansion. 

C 

HN1{1)  =  H113(XX) 
HC  =  HNl(l) 
JN(2)  =  F(l) 
YN(2)  =  F(2) 
IF(  NM  .EQ.  1  )   RETURN 
A  =  2.D0/XX 
KMl  =  K-1 

IF(  KMl  .LT.  1  )  GO  TO  4 
C 

C     Evaluate  the  J's  up  to  J(K=X)  using  the  recurrence  relation. 

C 

5  DO  7  V  =  1,  KMl 
AV  =  DFLOAT(  V  ) 

7  JN(V+2)  =  JN(V+1)*A*AV  -  JN (V) 
4  IF(  K  .EQ.  NM  )   GO  TO  32 

C 

C     A  maximum  of  32  underflows  may  occur  before  program  termination. 

C 

IF(  PNTOP-1  )  100,  102,  100 

130  CALL  ERRSET(  208,  32,  -1,  1,  UNDRFL  ) 
GO  TO  8 

102  CALL  ERRSET(  208,  32,  0,  0,  UNDRFL  ) 

C 

C     Evaluate  the  rest  of  the  J's  by  Blanch's  method. 

C 

8  J  =  IDINT(  XX  ) 

IF(  J  .LT.  NM  )  J  =  NM 

I  =  J 
10  M  =  I 

IF(  A*DFLOAT(I)  .GE.  2.5D0   )   GO  TO  12 

1  =  1  +  1 

GO  TO  10 

C 

C     NPJCNV  is  N+J  such  that  convergence  is  obtained.   See  Blanch 

C         paper. 

C 

12  N  =  M  +  5 
P  =  0.D0 
NPJCNV  =  M 

14  N  =  N+  5 
Q  =  P 

P  =  0.D0 

DO  15  J  =  NPJCNV,  N 

Ml  =  N  +  NPJCNV  -  J 

15  P  =  l.D0/(DFLOAT(Ml)*A  -  P) 

16  IF(  DABS(P-O)  .GT.  (1 . D-1 5 ) *DABS (P)   )     GO  TO  14 
GHP  =  P 

LP  =  .FALSE. 

NPJMl  =  NPJCNV  -  1 

IF(  NPJCNV  .EQ.  NM  )   GO  TO  20 
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C 

C     Evaluate  G(NMAX)  or  H(NMAX)  from  G(^JPJCNV).   See  Blanch  paper. 

C 

DO  13  J  =  NM,  NPJMl 

Ml  =  NM  +  NPJMl  -  J 
18  CALL  GORHVU(  Ml,  A,  GHP,  LP   ) 
20  GH(NMPl)  =  GHP 

GORH(  NMPl  )  =  LP 

KPl  =  K+1 

KP2  =  K+2 

IF(  KP2  .GT.  NM  )  GO  TO  24 

DO  22  J  =  KP2,  NM 

Ml  =  NM  +  KP2  -  J 

MlPl  =  Ml+1 

MlMl  =  Ml-1 

GHP  =  GH(MIPI) 

LP=GORH (Ml  PI) 

CALL  GORHVU(  MlMl,  A,  GHP,  LP   ) 

GH(Ml)  =  GHP 
22  GORH(Ml)  =  LP 
24  UFL  =  .TRUE. 

DO  30  V  =  KPl,  NM 

IF(  V  .LE.  1  )  GO  TO  30 

VPl  =  V+1 

IF(  GORH(VPl)   )   GO  TO  26 

JN(  VPl  )  =  JN(V) *GH(VP1) 

GO  TO  29 
26  IF(  DABS(JN(V-1) )  .GT.  DABS (  JN (V)  )      )   GO  TO  23 

JN(VPl)  =  JN(V)/GH(VP1) 

GO  TO  29 

28  JN{VP1)  =  JN(V-1)/(GH(VP1) *A*DFLOAT(V)  -  1.D0   ) 

C 

C     Abort  possible  later  underflows. 

C 

29  IF(  DABS(  JN(VPl)  )  . LT .  l.D-70  )  JN(VPl)  =  0 . D0 

30  CONTINUE 

32  UFL  =  .FALSE. 

II  =  3 

IF{  JORHS  )  GO  TO  105 

DO  103  J  =  1,  NMPl 
103  YN{J)  =  0.D0 

H01  =  DCMPLX(JN(1)  ,  YN(1)  ) 

HNl(l)  =  DCMPLX(  JN(2),  YN(2)  ) 

GO  TO  40 

C 7 

C     A  maximum  of  32  overflows  may  occur  before  program  termination. 
C- 


105  IF(  PNTOP-1  )  104,  106,  104 

104  CALL  ERRSET(  207,  32,  -1,  1,  OVERFL  ) 
GO  TO  33 

106  CALL  ERRSET(  207,  32,  0,  0,  OVERFL  ) 
33  YLOOP  =  .TRUE. 
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»_ 

C     Evaluate  the  y's  using  the  recurrence  relation. 

C 

DO  34  J  =  2,  NM 

II  =  J+1 

YN(Il)  =  YN(J) *A*DFL0AT(J-1)  -  YN(J-l) 

C 

C     Catch  first  overflow  and  set  subsequent  Y's  to  -1.D70. 
C 

IF(  OBOY  )  GO  TO  36 

IF(  DABS(YN(I1)  )  .GT.  1.D70  )  GO  TO  36 
34  CONTINUE 

YLOOP  =  .FALSE. 

GO  TO  40 
36  DO  33  J  =  II,  NMPl 
38  YN(J)  =  -1.D70 

YLOOP  =  .FALSE. 

OBOY  =  .FALSE. 
C 

C     Evaluate  the  Hankel  functions  to  be  returned. 

Q 

40  DO  42  J  =  2,  NM 

JPl  =  J+1 
42  HNl(J)  =  DCMPLX(  JN(JPl),  YN(JPl)    ) 

RETURN 
C 

C     Treat  the  special  case  X=0 . 

r 

44  P  =  1.D0 
Q  =  0.D0 

A  =  -1.D70 

H01  =  DCMPLX(  P,  A  ) 

DO  45  J  =  1,  NM 

45  HNl(J)  =  DCMPLX(  Q,  A  ) 
RETURN 

END 
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C        Subroutine  GORHVU  is  reauired  as  part  of  Blanch's  method   given 
C    in   "SIAM  Review",  V.  6,  no.  4,  Oct.  1964.   It  is  used  in  BESSEL  and 
C    HAMKEL.   For  further  details,  see  the  Blanch  paper. 
C 

SUBROUTINE  GORHVU (  K,  A,  GH,  L   ) 
REAL*8  GH,  A,  BK,  YD,  ZD,  DABS,  DFLOAT,  HI 
INTEGER  K 
LOGICAL  L 
BK  =  A*DFLOAT(K) 
IF(L)  GO  TO  10 
YD  =  SK-GH 

IF(DABS(BK)   .GE.  2 . D0  )  GO  TO  1 
IF(  DABS(YD)   .GT.  1 . D0  )  GO  TO  1 
L  =  .TRUE. 
GH  =  YD 
RETURN 
1  L  =  .FALSE. 
GH  =  1.D0/YD 
RETURN 
13  ZD  =  BK*GH  -  1.D0 
HI  =  GH 

IF(  DA3S(ZD)   .GE.  DABS(GH)  )   GO  TO  100 
L  =  .TRUE. 
GH  =  ZD/Hl 
RETURN 
100  L  =  .FALSE. 
GH  =  Hl/ZD 
RETURN 
END 
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C  Subroutine  UNDRFL  is  called  when  an  underflow  occurs.  If  an 
C  underflow  occurs  when  UFL  is  .TRUE.,  the  result  register  will  be  set 
C  to  zero  and  program  execution  will  continue.  Otherwise,  the  program 
C  will  terminate.  D  is  the  result  register.  I  is  a  dummy  variable. 
C  UNDRFL  is  used  in  BESSEL,  HANKEL,  GTJN,  SKS,  SUMINC,  and  SUMHJI. 
C 

SUBROUTINE  UNDRFL (  D,  I  ) 
REAL*8  D 
INTEGER  PNTOPT 
LOGICAL  UFL 
C0MM0N/$2/  UFL 
C0HM0N/$3/  PNTOPT 
IF(  PNTOPT  .GE.  2  )  PRINT  1 
1  FORMAT(  '  ',  75X,  'UNDERFLOW  OCCURRED.   RESULT  REGISTER  WAS  SET  TO 
1  ZERO. '   ) 
D  =  0.D0 

IF(  UFL  )   RETURN 
CALL  ERRSET(  208,  1,  0,  0   ) 
STOP 
END 


C  Subroutine  OVERFL  is  called  when  an  overflow  occurs.  If  an 
C  overflow  occurs  when  YLOOP  is  .TRUE.,  the  result  register  will  be 
C  set  to  -1.D70,  OBOY  will  be  set  to  .TRUE.,  and  program  execution 
C  will  continue.  Otherwise,  the  program  will  terminate.  D  is  the 
C  result  register.  I  is  a  dummy  variable.  OVERFL  is  used  in  HANKEL. 
C 

SUBROUTINE  OVERFL (D,  I  ) 

REAL*8  D 

INTEGER  PNTOPT 

LOGICAL  OBOY,  YLOOP 

C0MM0N/$1/  OBOY,  YLOOP 

C0MM0N/$3/  PNTOPT 

OBOY  =  .TRUE. 

IF(  PNTOPT  .GE.  2  )  PRINT  1 
1  FORMAT(  '  ',  75X,  'OVERFLOW  OCCURRED.   RESULT  REGISTER  WAS  SET  TO 
1-1. D70.'   ) 

D  =  -1.D70 

IF(  YLOOP  )   RETURN 

CALL  ERRSET(  207,  1,  0,  0   ) 

STOP 

END 
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C        Function  H01S  evaluates  the  Hankel  function  H01  for  argum.ent  X. 

C  A   Chebyshev   polynomial   expansion   is  used   for  X  less  than  7  and 

C  another  is  used  for  X  greater  than  7.  The   coefficients   are   from 

C  Table   25   on   page   331   of   Volume  II  of  Luke's  book,  "The  Special 

C  Functions  and  Their  Approximations."  The   routine   is   called   by 

C  HANKEL  and  BESSEL. 

r 

COMPLEX  FUNCTION  H01S*16(X) 

C0MPLEX*16  DCMPLX,  DIST 

REAL*8  X,  XX,  DABS,  A(16),  B(16),  CR(16),  CI(16),  DSQRT,  FOX, 

1  OOSRTX,  AGL,  DLOG,  RECT,  lECT,  X08 ,  X2 ,  EAT,  EBT,  PI04 ,  R20PI, 

2  TWOOPI,  GAMMA,  DSIN,  DCOS 

DATA  PIO4/0.7853981633974483D0/,  R2OPI/0 . 797884560 80286 54D0/ , 
1   TWOOPI/0. 636619772367581300/,  GAMMA/0 . 57721 5664901 5329D0/ 
DATA  A/-0.758D-15,  0 . 00041 253D-10 ,  -0 . 01943835D-10 ,0 . 78486963D-10 , 

1  -0 .00026792535300-5,  0.00760816359240-5,-0.17619469077620-5, 

2  3.246032882100  50-5,-0.000460626166  206275  00,0.00481918006946760  400 
3,-0.03489376941140888  500,0.15  806710233  20  9726100, 

4  -0.37009499387  26  497700,0.26  517  86132033368000, 

5  -0.00872344235285222D0,   0.1577279714748901100   / 

DATA  B/1.58D-15,  -84.420-15,0.038828670-10,-1.52582850-10, 

1  50. 5105437 0-1 0,-0. 01384 57 181230-5, 0.307649328810  0-5, 

2  -5.3925079722930-5,71.911740375  23  0  0-5,-0.0069322  86  2915231800, 

3  0.0446213795405692800,   -0 . 16563598171365041D0 , 

4  0.2342527461090218000,    0.19860  56  347025541600, 

5  -0.2751181330435187900,     -0.0215051114496575500     / 

DATA  CR/0. 590-1 5,  -3.610-15,  8.730-15,   41.91D-15,  -0 . 00559090-10 , 

1  0.02535350-10,0.03237970-10,  -1.39156190-10,9.26762480-10, 

2  14.54928070-10,  -0.0090770101530-5,  0.0691542349140-5, 

3  0.85112322106560-5,-0.00031878987  80  6189  00,  -0.0013  3  8428  5  499  718500 

4  ,       0.99898808985896515D0      / 

DATA  CI/0. 460-15,  0.75D-15,  -16.770-15,  92.310-15,  -0.00122550-10, 

1  -0.02304890-10,  0.2169571D-10,  -0.60627380-10,  -6.83347510-10, 

2  96.46421330-10,  -0.0027244053410-5,  -0.0851806644420-5, 

3  1.3655570490350-5,   9.6494184993420-5, 

4  -0.0122494962312594700,    -0.0123315205785441400    / 
XX  =  DABS(X) 

IF(  XX  .LT.  7.00  )  GO  TO  1 

OOSRTX  =  l.D0/DSQRT(  XX  ) 

AGL  =  XX  -  PI04 

DIST  =  00SRTX*R20PI*0CMPLX(  DCOS (AGL),  DSIN (AGL)   ) 

FOX  =  5.D0/XX 

C 

C     Sum  the  Chebyshev  series. 


r- 


CALL  EATSTR(  FOX,  15,  CR,  RECT  ) 
CALL  EATSTR(  FOX,  15,  CI,  lECT 
H01S  =  OCMPLX(  RECT,  lECT  )*DIST 
RETURN 
1  IF  (  XX  .EQ.  0.00   )  GO  TO  2 
X08  =  0.125D0*XX 
X2  =  X08*X08 

C 

C     Sum  the  Chebyshev  series. 

C 
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CALL  EATSTR(  X2,  15,  h,    EAT   ) 
CALL  EATSTR(  X2,  15,  B,  EBT  ) 

H01S  =  DCMPLX(  EAT,  TWOOPI* (GAMMA+DLOG ( 0 . 5D0*XX) ) *EAT  +  EBT   ) 
RETURN 
C 

C     Treat  the  special  case  X=0. 


r. 


2    H01S  =  DCMPLX(  1.D0,  -1.D70   ) 
RETURN 
END 


C        Function  HllS  evaluates  the  Hankel  function  Hll  for  argument  X. 

C  A   Chebyshev   polynomial   expansion   is   used   for  X  less  than  7  and 

C  another  is  used  for  X  greater  than  7.    The   coefficients   are   from 

C  Table   26   on   pages   332   and  333  of  Volume  II  of  Luke's  book,  "The 

C  Special  Functions  and  Their  Aporoximations . "   The  routine  is   called 

C  by  HANKEL  and  BESSEL. 

Q 

COMPLEX  FUNCTION  H11S*16(X) 

C0MPLEX*16  DCMPLX,  DIST 

REAL*8  X,  XX,  DABS,  DSQRT,  DLOG ,  X08 ,  DR(16),  01(16),  A(16), 

1  C(16),  OOSRTX,  FOX,  EAT,  REDT,  lEDT,  ECT,  PI04 ,  R20PI ,  TWOOPI, 

2  GAMMA,  TPI04,  AGL ,  DSIN,  DCOS 

DATA  PIO4/0. 7 3539816 3397 44 8 3D0/,R2OPI/0. 797884 560 80 286 54D0/, 
1   TWOOPI/0.6366197723675813D0/,  GAMMA/0 . 5772156549015329D0/ 
DATA  A  /-0. 0960-15,   5.59D-15,  -0.00283170-10,0.12351750-10, 

1  -4,58570030-10,   0.00142773243BD-5,  -0.0366130855230-5, 

2  0.7562630229690-5,  -12.227868  50  54320-5,0.0014899128966676300, 

3  -0.0129676273117351700,   0.0742667962167870300, 

4  -0.2418674084474074800,    0.3132750823615671800, 

5  0.0480964691582303700,    0 .05245819033465648D0     / 

DATA  C/  0.200-15,  -0.00011570-10,  3.00  572610-10,  -0 . 2434327D-10 , 

1  8.78030110-10,  -0.0026450737170-5,  0.06528479  523  50-5, 

2  -1.2885853299240-5,  19.7062302701540-5,  -0 . 0022356192944850900 , 

3  0.0176367030031631300,   -0.0866716970569485200, 

4  0.2066445410174905100,   -0.0  227192444284177300, 

5  -0.4444471476305580600,    -0.040172946  544  4140  700   / 
DATA  OR/  -0.630-15,  3.970-15,-10.1320-15,  -43.1610-15, 

1  0.00617810-10,  -0.02932170-10,  -0.02830450-10,  1 . 5763723D-10 , 

2  -11.14905940-10,  -12.94398920-10,  0 .01 1103267712D-5 , 

3  -0.0946901382390-5,  -1.117946189  5400-5,  54.3216487508010-5, 

4  0.00225557284656117D0,     1 . 00 17022348 5382100D0     / 


218 


Computer  Program  for  E-polar ization  Half-Plane  Current.  Page  29 

DATA  DI/  -0.52D-15,  -0.70D-15,  18.12D-15,  -133.38D-15, 

1  0.0015619D-10  ,  0.0249389D-10 ,  -0 . 2475278D-10 , 0 . 7547607D-10 , 

2  7.5973309D-10,  -0 . 001162872327D-5 ,0 .003830526171D-5 , 

3  0.107001405738D-5,  -1 . 9851 29468759D-5 ,-13 .726323820 190D-5 , 

4  0.03714532247980768D0,   0.0372617150005375500       / 
TPI04  =  3.D0*PIO4 

XX  =  DABS(X) 

IF(  XX  .LT.  7.00  )   GO  TO  1 
OOSRTX  =  l.O0/OSQRT(  XX  ) 
AGL  =  XX  -  TPI04 

OIST  =  00SRTX*R20PI*DCMPLX(  DCOS(AGL),  DSIN(AGL)   ) 
FOX  =  5.00/XX 
C 

C     Sum  the  Chebyshev  series. 

C 

CALL  EATSTR(  FOX,  15,  OR,  REDT   ) 

CALL  EATSTR(  FOX,  15,  01,  lEDT   ) 

HllS  =  OIST*OCMPLX(  REDT,  lEDT  ) 
RETURN 

1  IF{  XX  .EQ.  0.D0  )   GO  TO  2 
X08  =  XX*0.125D0 

C 

C     Sum  the  Chebyshev  series. 

r 

CALL  EAT2P1(  X08 ,  15,  A,  EAT   ) 
CALL  EAT2P1(  X08 ,  15,  C,  ECT   ) 

HllS  =  DCMPLX(  EAT,  TWOOPI* (GAMMA+OLOG (0 . 5D0*XX) )  *EAT-TW00PI/XX+ 
1     ECT      ) 
RETURN 
C 

C     Treat  the  special  case  X=0 . 

C 

2  HllS  =  DCMPLX(  0.D0,  -1.D70   ) 
RETURN 

END 
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C  Subroutine  EAT2P1  evaluates  the  Chebyshev  series:     Y  =  Sum  of 

C  A(k) T(2k+1) (X)   over  k  from  zero  to  N  for  argument  X.   "E"  in  EAT2P1 

C  denotes  Sigma(Sum  of).   N  is  the  upper  index  of  the  summation.    The 

C  index  goes  from  zero  to  N.   N+1  coefficients  are  required.   A  is  the 

C  coefficient  vector  of  length  N+1  written  in   REVERSE   order:    A(N), 

C  A(N-l)  , . . . ,A  (0)  .    Y   is   the   result   of   the   sum.   The  recurrence 

C  algorithm  is  given  on  page  329  of  Volume   I   of   Luke's   book,   "The 

C  Special  Functions  and  Their  Aoproximations . " 

C 

SUBROUTINE  EAT2P1 (  X,  N,  A,  Y  ) 

REAL*8  X,  A(l),  Y,  U,  PA,  PB,  PC,  XX 

INTEGER  N,  I,  NN 

XX  =  X 

U  =  4.D0*XX*XX  -2.D0 


+  A  (I) 


PB  = 

0.D0 

PA  = 

0  .D0 

NN  = 

N+1 

DO  1 

I  =  1, 

,  NN 

PC  = 

U*PB  - 

-  PA 

PA  = 

PB 

PB  = 

PC 

Y  =  : 

KX*  (PB- 

■PA) 

RETURN 

END 

C  Subroutine  EATSTR  evaluates  the  Chebyshev  series:    Y  =  Sum   of 

C  A(k)T*(k) (X)  over  k  from  zero  to  N  with  argument  X,  or  the  Chebyshev 

C  series:   Y  =  Sum  of  A(k)T(2k) (X)  over  k  from  zero  to  N  for   argument 

C  X   when   the  routine  is  called  with  argument  X*X  (X-squared)  instead 

C  of  X.   N  is  the  upper  index  of  summation.   The  index  goes  from   zero 

C  to   N.    N+1  coefficients  are  required.   A  is  the  coefficient  vector 

C  of  length  N  +  1  written  in  REVERSE  order:   A(N),   A (N-1)  , . . . , A (0)  .    Y 

C  is  the  result  of  the  sum.   The  recurrence  algorithm  is  given  on  page 

C  329  of  Volume  I  of  Luke's  book,  "The   Special   Functions   and   Their 

C  Approximations." 

C 1 

SUBROUTINE  EATSTR(  X,  N,  A,  Y  ) 
REAL*8  X,  A(l),  Y,  U,  PA,  PB,  PC,  XX 
INTEGER  N,  I ,  NN 
XX  =  X 

,D0 


+  A(I1 


u  = 

4.D0*XX 

-2 

PB  = 

=  0.D0 

PA  = 

=  0  .D0 

NN  = 

=  N 

DO  1  I  =  1, 

NN 

PC  = 

=  U*PB  - 

PA 

PA  = 

=  PB 

PB  = 

=  PC 

Y  = 

2.D0*XX*PB 

RETURN 

END 

:pA+PB)  +  A(NN+1) 
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C  Subroutine   LTPLZ   finds   the   solution   vector   VOUT   for    an 

C  almost-Toeplitz   matrix   whose  first  (Left)  column  is  different  from 

C  what  it  would  be  if  the  matrix  were  completely   Toeplitz.    ZTAU   is 

C  the   input   vector   of  values  for  the  left  column.   TAU  is  the  input 

C  vector  of  the  values  that  the  left-most  column  would  take  on  if   the 

C  matrix   were   completely   Toeplitz.    If   T   is   the  Toeplitz  matrix 

C  corresponding  to  TAU,   and   if   ZTAM   and   TAM   are   matrices   whose 

C  left-most   columns   are   ZTAU  and  TAU,  respectively,  and  whose  other 

C  columns  are  all  zero,  then  the  matrix  equation  may  be  written  as 

C  (  T  +  (ZTAM  -  TAM)  ) VOUT  =  VIN. 

C  Zl,  A,  and  Al  are  working  storage  vectors  and  are  each  of  length  NZ. 

C  NZ   is   the   order   of   the  matrix  system.   VIN  is  a  one-dimensional 

C  vector  of  length  (NZ*MM)  containing  the  MM   concatenated   excitation 

C  vectors.    VOUT   is   a   one-dimensional   vector   of   length   (NZ*MM) 

C  containing  the  MM  concatenated  solution  vectors.   MM  is   the   number 

C  of   excitation   and  solution  vectors.   XNORM  is  the  infinite  norm  of 

C  the  inverse  of  the  Toeplitz  matrix  T(not  of  T+ ( ZTAM-TAM) ) .    lER   is 

C  an  error  code  returned:   IER=0  means  no  error;   IER=N  means  an  error 

C  occurred  on  the  N'th  iteration  of  working  vector  A.    Both   TAU   and 

C  ZTAU   are  destroyed.   LTPLZ  was  modified  from  TPLZ  which  was  written 

C  by  Chuck  Klein.   The  basic  Toeplitz   algorithm   is   due   to   D.    H. 

C  Preis,   IEEE   Transactions   on   Antennas   and  Propagation,  V.  AP-20, 

C  1972,  Page  204. 

C 

SUBROUTINE  LTPLZ ( ZTAU ,TAU , Zl , A, Al ,NZ ,VIN ,VOUT,MM ,XNORM, lER) 
IMPLICIT  C0MPLEX*16  (A-H,0-Z) 

C0MPLEX*16  ZTAU(NZ)  ,TAU(NZ)  ,Z1(1)  ,A(1)  ,A1(1)  ,VIN(1)  ,V0UT{1) 
COMPLEX* 18  ONE/ ( 1 D0, 0D0)/, ZERO/ (0D0,0D0)/ 
REAL*8   ONNE/1D0/,ZRRO/0D0   / 
REAL*8  XNM, XNORM 
C 

C     Take  the  difference  between  ZTAU  and  TAU  and  store  the  result  in 

C  ZTAU . 

C 

DO  100  11=1, NZ 
100  ZTAU(II)  =  ZTAU(II)  -  TAU(II) 

N=NZ-1 

IER=0 

C 

C     Normalize  input  matrix  TAU  by  dividing  all  elements  by  TAU{1). 

C 

TAU1=TAU(1) 
DO  2000  11  =  1, N 
2000  TAU(II)=TAU(II+1)/TAU1 

r 

C     Calculate  the  iterative  variables  to  obtain  A(N)  and  ALMDA. 

C 

ALMDA=ONE     -  TAU ( 1 ) *TAU ( 1 ) 

A(1)=-TAU(1) 

1  =  2 

1  KK=I-1 
ALPHA=ZERO 
DO  2  M=1,KK 
LL=I-M 

2  ALPHA=ALPHA+A(M) *TAU(LL) 
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ALPHA=- (ALPHA+TAU{I) ) 

IF  (  CDABS(ALPHA)  .EQ.  0 . D0 )  GO  TO  15 

COEF=ALPHA/ALMDA 

ALMDA=ALMDA-COEF* ALPHA 

DO  3  J=1,KK 

L=I-J 

3  A1(J)=A(J)+C0EF*A(L) 
DO   7  J=1,KK 

7  A{J)=A1(J) 
A(I)=COEF 
IF  (I  .GE.  N)  GO  TO  5 

4  1=1+1 
GO  TO  1 

C 

C     Compute  the  values  of  each  element  of  the  inverse  of  T. 

C 

5  NH=(NZ+l)/2 
FAC=ALMDA*TAU1 
XNORM=ZRRO 
NP=NZ+1 

DO  51  1=1, NH 

XNM=ZRRO 

IF(I  .NE.  1)  GO  TO  52 

Al(l)=  ONE/FAC 

XNM  =  CDABS(A1(1)  ) 

DO  53  J=2,NZ 

A1(J)=A(J-1)/FAC 

53  XNM=CDA3S (Al (J) ) +XNM 
GO  TO  54 

52  XNM=ZRRO 

C1=A(I-1) 

C2=A(NP-I) 

DO  55  JJ=1,N 

J=NP-JJ 

Al (J) =A1(J-1) +(C1*A(J-1) -C2*A(NP-J) ) /FAC 
55  XNM=CDABS(A1 (J) )+XNM 

A1(1)=A{I-1)/FAC 

XlNIM=XNM+CDABS(A1  (1)  ) 

54  IF(XNM  .GT.  XNORM)  XNORM=XNM 

C 

C     Obtain  Zl  from  ZTAU'  and  Al  by  matrix  multiplication. 

C  (ZTAU'  =  ZTAU  -  TAU) . 

C 

V=ZERO 

VI  =  ZERO 

DO  60  J=1,NZ 

V2  =  ZTAU (J) 

V  =  V+V2*A1(J) 
50  VI  =  Vl+V2*A1(NP-J) 

Z1(I)=V 

Zl(NP-I)  =  VI 

C 

C     Evaluate  VOUT  due  to  the  completely  Toeplitz  matrix  T  for  each 

C         input  excitation  vector. 

C 
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DO  56  11=1, MM 

ID=(II-1) *NZ 

V=ZERO 

V1=ZER0 

DO  57  J=1,NZ 

V2=VIN(ID+J) 

V=V+V2*A1 (J) 
57  V1=V1+V2*A1 (NP-J) 

VOUT(ID+I  )=V 
56  VOUT(ID+NP-I  )=V1 
51  CONTINUE 
C 

C     Modify  VOUT  as  reouired  to  arrive  at  the  solution  for  the 

C         almost-Toepli tz  matrix  using  Zl  calculated  above. 

C 

DO  6  2  II  =  1,  MM 

ID  =  (II-l) *NZ 

V  =  V0UT{ID+1)/(0NE+Z1 (1)  ) 

V0UT(ID+1)  =  V 

DO  62  J=2,  NZ 
62  VOUT(ID+J)  =  VOUT(ID+J)  -  (Z1(J)*V) 

RETURN 
15  PRINT  700 
700  FORMAT ( '0 ' ,75X, 'ERROR  HAS  OCCURRED.   MATRIX  IS  NOT  STRONGLY  NONSIN 
IG.V) 

IER=I 

RETURN 

END 
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C  Subroutine  PNTOWT  calculates  the  "exact"  current   (IE-IPO)   and 

C  compares   it  with  the  approximate  solution  obtained  by  the  method  of 

C  moments.   TAD,  NSIZE,  NCASES,  KZ,   RHS,   RESULT,   ROOT,   and   H   are 

C  inputs.    lEMPO   is   a   dimensioned   array   of  length  NSIZE  which  is 

C  filled  with  the  "exact"  values  of  (IE-IPO)  for  each  match  point   KZ. 

C  RHS,  TAD,  NSIZE,  NCASES,  and  KZ  are  the  same  as  RHS,  TAD,  NSIZE,  NC , 

C  and  KZ  as  described   in   ISPMOM.    RESULT   is   an   array   of   length 

C  NCASES*NSIZE   which   contains  the  values  of  (IE-IPO)  obtained  by  the 

C  method  of  moments.    ROOT   is   a   logical   variable   which   must   be 

C  .TRUE,  for   PNTOWT   to   handle  the  hybrid  case  and  .FALSE,  to  handle 

C  the  Dulse  case.   H   is   the   half-subsection   width.    PNTOWT   calls 

C  XIEMPO  and  SEP  directly. 

C 

SUBROUTINE  PNTOWT (TAD ,NSI ZE , NCASES ,KZ , lEMPO , RHS , RESULT , ROOT , H) 

C0MPLEX*16  lEMPO(l) , EXACT ,ANS , DI FF , RESULT ( 1 ) ,RHS(1) ,COEFF , SP ( 20 ) 

REAL* 8  KZ(]),  TAD(l),  H,  Z(20),  DFLOAT,  DSQRT,  THETAD,  DELZ ,  AX (4) 
1,  AA(4) ,  ZM(3,4) 

INTEGER  NCASES,  NSIZE,  J,  K,  IC(4)/'  RE=','  IM= ' ,  'MAG= ' ,  'AGL= '/ , 
1  JJ,  KK,  OFFSET 

LOGICAj:.  ROOT 

DO  3  J=l,  NCASES 

OFFSET  =  (J-1  ) *NSIZE 

THETAD  =  TAD (J) 

\- 

C      Obtain  array  of  "exact"  (IE-IPO);   store  in  lEMPO. 

C 

CALL  XIEMPOf  NSIZE,  KZ,  THETAD,  lEMPO  ) 
C 

C     Write  results  in  appropriate  disk  file:   ROOT=.TRUE.  for  hybrid 

C  expansion;   ROOT=. FALSE,  for  Dulse  expansion. 

C 

IF(  ROOT  )  GO  TO  21 

WRITE(22)  THETAD,  NSIZE,  H,  (KZ  (K)  ,  K  =  l,  NSIZE), 
1  (RESULT(OFFSET+K) ,K=1, NSIZE  ) 

GO  TO  20 
21  WRITE(21)  THETAD,  H,  (KZ  (K)  ,K  =  1 , NSI ZE)  ,( lEMPO (K)  ,K  =  1 , NSIZE) 

1    ,   (RHS(OFFSET+K)  ,K  =  1, NSIZE)  ,  ( RESULT (OFFSET+K)  , K  =  l , NS I ZE ) 
20  PRINT  5,  THETAD 
5  FORMAT ( '1' ,  'THETAD=' ,F9.2//T4,  'KZ'  ,T18,  'EXACT ' ,T38,  'ANS' ,T55, 
1  'DIFF',  T76 , 'exact' ,T96, 'ANS' ,T113, 'DIFF'  ) 

C 

C     Compare  "exact"  with  moment  solution  and  print  results. 

C 

DO  2  K=1,  NSIZE 
EXACT  =  lEMPO(K) 
ANS  =  RESULT (  OFFSET  +  K) 
C 

C     Separate  EXACT,  ANS  into  real  part,  imaginary  part,  magnitude  and 

C         phase,  A(l),  A(2),  A(3),  and  A(4),  respectively. 

C 

CALL  SEP(  EXACT,  AX  ) 
CALL  SEP(  ANS,  AA  ) 
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DO  10  1=1,  4 
ZM(1,I)  =  AX (I) 
ZM(2,  I)  =  AA(I) 
10  ZM(3,  I)  =  AX (I)  -  AA(I) 

2  PRINT  4,  KZ(K),  (IC  ( I)  ,  (  ZM  ( JJ , I)  ,  JJ  =  1 , 3)  ,  1  =  1 ,  4)  ,  RHS (OFFSET+K) 

4  FORMAT ( '  ' ,T2,0PF7.4,T9,2(A4, '< ' ,1PD17.13, '/',D17.10,'>',D17.10, 

1  2X)/T9,A4,  '<' ,D17.10, '/',D17.10, '>',D17.10,2X,A4,  '<',0PF17.10, 

2  '/',F17.10,'>' ,F17.10/T71, 'RHS=( ' ,1PD23.15, ' , ' ,1X , D23 . 15 , ') ; '  ) 

C 

C     Print  out  selected  values  across  the  1/SQRT  subsection,  if 

C         applicable. 

C 

IF(  .NOT.  ROOT  )  GO  TO  3 
COEFF  =  RESULT(  OFFSET  +  1  ) 
PRINT  12  ,  COEFF 
12  FORMAT( '0',5X,  'COEFF=( ',1PD23.15, ',  ',2X,D23.15, ')  '  ) 
DELZ  =  H/20.D0 
DO  7  JJ=1,  20 

7  Z(JJ)  =  DELZ*DFLOAT(JJ) 

CALL  XIEMPO(20,  Z,  THETAD,  SP  ) 

DO  6  JJ  =  1  ,  20 

EXACT  =  SP(JJ) 

ANS  =  COEFF/DSORT(Z{JJ) ) 

CALL  SEP(  EXACT,  AX  ) 

CALL  SEP(  ANS,  AA  ) 

DO  8  K=l,  4 

ZM(1,K)  =  AX(K) 

ZM(2,K)  =  AA(K) 

8  ZM(3,K)  =  AX(K)  -  AA(K) 

5  PRINT  4,  Z(JJ),  (IC(I)  ,  (ZM(K,I)  ,K  =  1,3)  ,1=1,4) 

3  CONTINUE 
RETURN 
END 
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C  Subroutine  XIEMPO  calculates  the   "exact"   half-plane   current, 

C  (IE-IPO) ,  from  the  well-known  analytic  result,  for  NSIZE  points.   KZ 

C  is  an  array  of  length  NSIZE  containing  the  values   of   argument   for 

C  which   (IE-IPO)  is  to  be  found.   THETAD  is  the  angle  of  incidence  in 

C  degrees.   lEMPO  is  an  array  of  length  NSIZE  containing  the  values  of 

C  (IE-IPO)   corresponding  to  arguments  KZ.   XIEMPO  calls  FRESNL  and  is 

C  called  by  PNTOWT. 

C 

SUBROUTINE  XIEMPO(  NSIZE,  KZ,  THETAD,  lEMPO  ) 

C0MPLEX*16  DCMPLX,  lEMPO(l) ,  FRESNL,  lEIKZ,  SEKC 

REAL*8  KZ(1),  X,  THETAD,  THETA,  TA02 ,  DCOS,  DSI^J,  STA,  STA2  , 
1   CTA2,  CTA,  TSRX,PI,  PI04 ,  SRTPI,  DSQRT,  XP4 ,  XCP4 ,  CTA2SQ,  XC 

DATA  PI/3. 14 15926 53 589 793 23846D0/, 
lSRTPI/1. 77 24 53 8 50 9055 160 2730 D0/,PIO4/0. 78539816 3397 44830 95 2D0/ 

INTEGER  NSIZE,  NS ,  I 

THETA  =  (THETAD/180.D0) *PI 

TA02  =  THETA/2.D0 

CTA  =  DCOS(  THETA  ) 

STA  =  DSIN(  THETA  ) 

IF(  THETAD  .EQ.  180. D0  )  STA  =  0 . D0 

STA2  =  DSIN(  TA02  ) 

CTA2  =  DCOS(  TA02  ) 

IF(  THETAD  .EQ.  180. D0  )  CTA2  =  0.D0 

CTA2SQ  =  CTA2*CTA2 

DO  1  I  =  1,  NSIZE 

X  =  KZ(I) 

IF(  X  .NE.  0.D0  )  GO  TO  2 

lEMPO(I)  =  DCMPLX(  1.D70,  1.D70  ) 

GO  TO  1 
2  TSRX  =  DSQRT(2.D0*X) 

XP4  =  X  +  PI04 

XC  =  X*CTA 

XCP4  =  XC  +  PI04 

lEIKZ  =  STA2*DCMPLX(DCOS(XP4) ,  DSIN (XP4 ) ) /TSRX 

SEKC  =  STA*DCMPLX(DC0S(XCP4) ,-DSIN(XCP4)  ) 

IEMPO(I)=(4.D0/SRTPI) * ( IEIKZ+SEKC*FRESNL ( 2 . D0*X*CTA2SQ) )  -  2.D0* 
1  STA*DCMPLX(DCOS(XC) ,-DSIN(XC) ) 

1  CONTINUE 

RETURN 

END 
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C 
C 
C 
C 
C 
C 
C 
C 
C- 


Function  FRESNL  evaluates  a  form  of  the  Fresnel  Integral  for 
argument  X,  specifically,  the  integral  from  zero  to  SQRT(X)  of 
exp( it**2) dt.  A  Chebyshev  polynomial  expansion  is  used  for  X  less 
than  7  and  another  is  used  for  X  greater  than  7. 
are  from  Table  24,  page  328  and  329  of  Volume  II 
"The  Special  Functions  and  Their  Approximations." 
given  here  are  simply  those  in  the  book  divided  by 


The  coefficients 
of   Luke's   book, 

The  coefficients 
two.    FRESNL   is 


called  by  XIEMPO  and  by  a  subprogram  used  in  finding  (IH-Ipo) 


COMPLEX 
COMPLEX* 
REAL* 8  X 

1  Y(2), 
DATA  RPI 
DATA  A/ 

1 

2 

3 

4 

5 

6 

7 
DATA  B/ 

1 

2 

3 

4 

5 

5 

7 
DATA  RC/ 

1 

2 

3 

4 

5 

6 

7 

8 

9 

/ 
A 

B 


FUNCTION 
16  DCMPLX 
,  DSQRT, 

XX,  DABS 
02/1.2533 
-0.0000 
-0  .0000 
-0.0000 
-0.0000 
-0.0000 
-0.0077 
-0.1348 
-0.2156 
-0.0000 
-0  .0000 
-0  .0000 

-0.0000 
-0.0000 

-3.0028 
-0.0812 
-0.2117 
0.0000 


FRESNL*16 (X) 


DATA  IC/ 


1 
2 
3 
4 
5 
6 
7 
8 
9 
/ 
A 


0.0000 

0.0000 

0.0000 

-0.0000 

-0.0000 

0.0000 

0.0000 

-0.0000 

0.0008 

-0.0232 

-0.0000 

-0  .0000 

0.0000 

0.0000 

0.0000 

-0.0000 

-0.0000 

0.0000 

0.0000 

-0.0000 

0.0000 

0.0012 


DSIN, 
,  X08 
14137 
00000 
00003 
00000 
00268 
81324 
32622 
66551 
77737 
00000 
00000 
00000 
00055 
21435 
22817 
47445 
22557 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00018 
00157 
19566 
77143 
78899 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00009 
00499 
00539 
41371 


DCOS 
,  FOX 
31550 
00000 
00024 
36450 
04669 
88809 
42230 
59193 
73830 
00000 
00003 
06224 
49420 
35766 
38566 
77254 
02852 
00000 
00000 
00000 
00000 
00047 
00169 
06578 
54407 
87764 
67650 
52043 
56982 
36875 
00000 
00000 
00000 
00004 
00005 
00526 
03153 
98311 
53974 
52763 
53449 
41155 


RPI 
X08 
02512 
00875 
17201 
81059 
94452 
44377 
69097 
55551 
08965 
00110 
51620 
91510 
92043 
05100 
09544 
78370 
66677 
00261 
03757 
42964 
63455 
31570 
73823 
82723 
24061 
02455 
16172 
15079 
57266 
32280 
00589 
03808 
20177 
50319 
35618 
84651 
98559 
80163 
37854 
31840 
37031 
65301 


02, 

SO 

1D0/ 

1D0 

5D0 

3D0 

1D0 

3D0 

9D0 

4D0 

6D0 

9D0 

8D0 

9D0 

4D0 

2D0 

9D0 

7D0 

2D0 

2D0 

3D0 

6D0 

7D0 

9D0 

0D0 

3D0 

1D0 

1D0 

6D0 

2D0 

2D0 

3D0 

8D0 

7D0 

8D0 

7D0 

2D0 

5D0 

0D0 

3D0 

4D0 

6D0 

7D0 

7D0 


A(16) ,  B(15) ,  RC(25) ,  IC(25) 


)0 
.0000000 


0.0000000 

0 

0 

0 

0 


.00 
.00 
.00 
.04 
.21 
.38 
.00 


093 


12 
.6 
!2 

)00000 

)00000 
0.0000000 


.01 
.18 
.31 

.00 


00000 
00010 
13908 
86988 
77117 
25604 
99898 
93320 
00000 
00001 
02041 
25503 
74759 
78893 
53216 
21572 
00000 


0.000000000000 
0.000000000000 


.001 

.001 

.001 

.0000000 

.0000000 

.0000000 

.001 

.001 

.02: 


00001 
00007 
00257 
01332 
93829 
46514 
57001 
65100 


004932 
185562 
292274 
281916 
199110 
384676 
633255 
930000 
000568 
600242 
248658 
749615 
884485 
155043 
718283 
852595 
000032 
001553 
005987 
103578 
351013 
543044 
750383 
758250 
100426 
329886 
290533 
519706 


,0000 
,0000 
,0000 
,0000 
,0000 
,0000 
,0000 
,0000 
,0000 
,0000 
,0001 
,0050 


00 
00 
00 
00 
00 
02 
33 
91 


0000000 
0000000 
0000000 
0000001 
0000008 
0000182 
0000823 
0045453 
0375463 
4418408 
0474753 
7549157 


00181 
00284 
12753 
02049 
58219 
11509 
86455 
98646 
58686 
76965 
23623 
39498 


65D0, 
74D0, 
66D0, 
30D0, 
09D0, 
89D0, 
27D0, 
94D0/ 
19D0, 
12D0, 
48D0, 
49D0, 
83D0, 
47D0, 
12D0, 
20D0/ 
39D0, 
47D0, 
81D0, 
25D0, 
35D0, 
04D0, 
55D0, 
51D0, 
42D0, 
53D0, 
92D0, 
98D0, 

44D0, 
79D0, 
08D0, 
42D0, 
00D0, 
47D0, 
29D0, 
33D0, 
05D0, 
84D0, 
67D0, 
73D0, 
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B  -0.49528023968674877433D0   / 

XX  =  DABS(X) 

IF(  XX  .LT.  7.D0  )  GO  TO  1 
FOX  =  5.D0/XX 
C 

C     Sum  the  Chebyshev  series. 

C 

CALL  EATSTR(  FOX,  24,  RC ,  Y(l)  ) 
CALL  EATSTR(  FOX,  24,  IC ,  Y(2)  ) 

FRESNL  =  DCMPLX(0.5D0,0.5D0) *RPI02+DCMPLX(Y(1) ,Y(2) ) * 
1  DCMPLX(  DCOS(XX) ,DSIN(XX) )/DSQRT(XX) 

RETURN 


1  X08  =  XX/8.D0 
X08SO  =  X0B*X08 


C     Sum  the  Chebyshev  series. 

C 

CALL  EATSTR(  X08SQ,  15,  A,    Y(l)  ) 

CALL  EAT2P1{  X08 ,  15,  3,  Y(2)  ) 

FRESNL  =  DCMPLX(  Y(l),  Y(2)  )  *DSORT{XX) 

RETURN 

END 


C        Subroutine  SEP  is  used  to  separate  C,   a   C0MPLEX*16   variable, 
C    into   its   real   part,   imaginary   part,  magnitude  and  phase.   These 
C    results  are  stored  in  A(l)  through   A(4) ,   respectively.    A   is   an 
C    array  of  length  4  and  of  type  REAL*8.   SEP  is  used  in  PNTOWT. 
C 

SUBROUTINE  SEP(C,  A  )  4 

C0MPLEX*16  C,  CC 

REAL*8  C2(2),  A(4),  CDABS,  O80OPI,PI,  DATAN2 

DATA  PI/3.14159  26  53  589  79323845D0/ 

E0UIVALENCE(CC,C2) 

O80OPI  =  180-D0/PI 

CC  =  C 

A(l)     =    C2(l) 

A(2)     =    C2(2) 

A(3)     =    CDABS(CC) 

A(4)     =    O80OPI*DATAN2(    C2(2),    C2(l)     ) 

RETURN 

END 
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These   routines   were   written   by 
Donald  Farness  Hanson,  June,  1975. 


C  The   following   MAIN   program   evaluates    the    H-polar ization 

C  (H-vector   parallel   to   the   edge)   half-plane   current   minus   the 

C  physical  optics  current,  (IH-Ipo) ,  from  the  values  of  (IE-IPO)  found 

C  previously   by   the   method   of   moments.    For  each  point  along  the 

C  half-plane,  two  numerical  integrations  must  be  performed.    For   the 

C  first,   the   values  of  (IE-IPO)  must  be  known  for  angle  of  incidence 

C  THETAD=90  degrees  and  for  the  second,  (IE-IPO)  must  be  known  for  the 

C  angle   of   incidence  for  which  (IH-Ipo)  is  to  be  found.   The  details 

C  ot  this  method  are  presented  elsewhere  in   this   work.    MAIN   reads 

C  RESULT   vectors  written  on  the  disk  by  the  moment  method  program  for 

C  (IE-IPO)  and  operates  upon  them  in  the  appropriate  fashion.   Results 

C  are   written   on   the   disk   for  THETAD=45,  90,  135,  and  130  degrees 

C  resoectively.   Results  due  to  the  hybrid   expansion   are   read   from 

C  di-k   file   21   and   those  due  to  the  pulse-everywhere  expansion  are 

C  read  from  disk  file  22.   The  approximate  results  for  (IH-Ipo)  due  to 

C  the  numerical  integrations  are  stored  in  IHMPOA  by  SUBROUTINE  AIHMPO 

C  and  the  "exact"  results  due  to  the  analytic  expression  are  stored  in 

C  IHMPjX  by  SUBROUTINE  XIHMPO.   MAIN  calls  YARRAY,  AIHMPO,  XIHMPO,  and 

C  PNT'JUT  directly.   A  list  of  the  subprograms  called  by  each  of   these 

C  routines   is   given  among  the  respective  routine  descriptions.   This 

C  routine  requires  132  seconds  of  IBM  360/75   execution   time,   and   9 

C  seconds  of  compile  time. 


r. 


C0MPLEX*16  DCMPLX,  A(200),  Bl(200),  B2{200),  EIKZ(200),  IHMPOA(499 
1   ) ,  IHMPOX(499) 
REAL*8  Y(499) ,  KZ(200),  H,  THETAD,  TA(2),  DCOS ,  DSIN 
INTEGER  I,  J,  NPTS,  NSIZE 
LOGICAL  HYORPS 
NSIZE  =  200 
NPTS  =  499 
C 

C     Read  hybrid  expansion  RESULT  arrays  for  45  and  90  degrees  into  A 

C         and  Bl,  respectively. 

C 

READ(21)  TA(1),  H,  KZ,  A,  A,  A 

READ(21)  TA(2),  H,  KZ,  81,  Bl ,  Bl 

C 

C     Set  up  an  array  Y  of  points  at  which  to  evaluate  the  current 

C  (IH-Ipo) . 

C 

CALL  YARRAY(  NPTS,  KZ,  NSIZE,  H,  Y  ) 
C 

C     Write  these  points  on  disk  file  25. 


C- 


WRITE(25)  NPTS,  H,  Y 
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C 

C     Fill  an  array  with  often  used  numbers  to  make  the  program  more 

C         efficient. 

C 

DO  1  1=1,  NSIZE 

1  EIKZ(I)  =  DCMPLX(  DCOS(KZ(I)  ),  DSIN(  KZ(I)  )   ) 
THETAD  =  TA(1) 

HYORPS  =  .TRUE. 
C 

C     Evaluate  the  current  (IH-Ipo)  for  45  degrees  using  the  hybrid 

C         expansion. 

C 

CALL  AIHMPO(  NPTS ,  Y,  A,    Bl,  KZ,  EIKZ,  NSIZE,  H,  THETAD,  HYORPS, 
1   IHMPOA  ) 

CALL  XTHMPO(  NPTS,  Y,  THETAD,  IHMPOX  ) 
C 

C     Compare  with  "exact." 

C 

CALL  PNTOUT(  THETAD,  NPTS,  Y,  IHMPOA,  IHMPOX,  HYORPS  ) 

C 

C     Read  pulse-everywhere  expansion  RESULT  arrays  for  45  and  90 

C         degrees  into  A  and  B2,  respectively. 

C 

READ(22)  TA(1),  NSIZE,  H,  KZ,  A 

READ(22)  TA(2),  NSIZE,  H,  KZ,  82 

HYORPS  =  .FALSE. 

C 

C     Evaluate  the  current  (IH-Ipo)  for  45  degrees  using 

C         pulse-everywhere  expansion. 

C 

CALL  AIHMPO(  NPTS,  Y,  A,  82,  KZ,  EIKZ,  NSIZE,  H,  THETAD,  HYORPS, 
1  IHMPOA  ) 

C 

C     Compare  with  "exact." 

C 

CALL  PNTOUT(  THETAD,  NPTS,  Y,  IHMPOA,  IHMPOX,  HYORPS  ) 

HYORPS  =  .TRUE. 
C 

C      Read  Bl  into  A. 

C 

DO  2  1=1,  NSIZE 

2  A(I)  =  Bid) 
THETAD  =  TA(2) 

C 

C     Calculate  the  current  (IH-Ipo)  for  90  degrees  using  the  hybrid 

C         expansion. 

C 

CALL  AIHMPO(  NPTS,  Y,  A,  81,  KZ,  EIKZ,  NSIZE,  H,  THETAD,  HYORPS, 
1  IHMPOA  ) 

CALL  XIHMPO(  NPTS,  Y,  THETAD,  IHMPOX  ) 

CALL  PNTOUT(  THETAD,  NPTS,  Y,  IHMPOA,  IHMPOX,  HYORPS  ) 

HYORPS  =  .FALSE. 

C 

C      Read  82  into  A. 

C 
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DO  3  1=1,  NSIZE 

3  A(I)  =  B2(I) 
THETAD  =  TA(2) 

C 

C     Calculate  the  current  (IH-Ipo)  for  90  degrees  using  the 

C         pulse-everywhere  exoansion. 

C 

CALL  AIHMPO(NPTS,  Y,  A,  B2,  KZ,  EIKZ,  NSIZE,  H,  THETAD,  HYORPS , 
1                                                 IHMPOA  ) 
CALL  PNTOUT(  THETAD,  NPTS ,  Y,  IHMPOA,  IHMPOX,  HYORPS  ) 
DO  4  J=3,  4 
HYORPS  =  .TRUE. 
C 

C     Read  hybrid  expansion  RESULT  array  for  135  (J  =  3)  and  180  (J=4) 

C         degrees  and  calculate  the  current  (IH-Ipo). 

C 

READ(21)  THETAD,  H,  KZ,  A,  A,  A 

CALL  AIHMPO(  NPTS,  Y,  A,  Bl,  KZ,  EIKZ,  NSIZE,  H,  THETAD,  HYORPS, 
1  IHMPOA  ) 

CALL  XIHMPO(  NPTS,  Y,  THETAD,  IHMPOX  ) 

CALL  PNTOUT(  THETAD,  NPTS,  Y,  IHMPOA,  IHMPOX,  HYORPS  ) 
HYORPS  =  .FALSE. 
C 

C     Read  pulse-everywhere  expansion  RESULT  array  for  135 (J=3)  and 

C         180(J=4)  degrees  and  calculate  the  current  (IH-Ipo). 

C 

READ(22)  THETAD,  NSIZE,  H,  KZ,  A 

CALL  AIHMPO(  NPTS,  Y,  A,  82,  KZ,  EIKZ,  NSIZE,  H,  THETAD,  HYORPS, 
1  IHMPOA  ) 

CALL  PNTOUT(  THETAD,  NPTS,  Y,  IHMPOA,  IHMPOX,  HYORPS  ) 

4  CONTINUE 
STOP 
END 
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C  Subroutine  YARRAY  generates  the  points  at  which  it   is   desired 

C  to   calculate   the  current  (IH-Ipo).   NPTS  is  used  here  to  dimension 

C  array  Y  only;   otherwise,  it  is  not  used.   KZ  is  the  array  of   match 

C  points   that  was  used  in  the  method  of  moment  solution  for  (IE-IPO). 

C  H  is  the  half  subsection  width  (H=0.05)  and  Y  is  the  output  array  of 

C  points.    One   hundred   points  are  equally  spaced  H/100  apart  within 

C  the  interval  (0:H)  and  399  points  are  equally  spaced  H  apart  on   the 

C  interval  (H:19.95).   These  points  were  chosen  to  provide  the  details 

C  of  the  current  near  the  edge  as  well  as  the  general  form   away   from 

C  the  edge. 

C 

SUBROUTINE  YARRAY {  NPTS,  KZ,  NSIZE,  H,  Y  ) 
INTEGER  NPTS,  NSIZE 

REAL*8  KZ(NSIZE),  H,  Y(NPTS),  DZ ,  DFLOAT 
INTEGER  I,  OFFSET,  J 
Yd)  =  KZ(1) 
DZ  =  H/100. D0 
C 

C     Evaluate  Y  for  points  near  the  edge. 

C 

DO  1  1=1,  100 

1  Y(I+1)  =  DFLOAT(I)*DZ 
OFFSET  =  98 

C 

C     Evaluate  Y  for  points  away  from  the  edge. 

C 1 

DO  2  1=2,  NSIZE 

J  =  OFFSET  +  I  +  I 

Y(J)  =  KZ{I) 

2  Y(J+1)  =  KZ(I)  +  H 
RETURN 

END 
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C  Subroutine  AIHMPO  calculates  the  current  (IH-Ipo)  at   the   NPTS 

C  points   contained   in   array   YVALU   by   the  Green's  function  method 

C  applied  to  (IE-IPO).   A  and  B  are  arrays  of  values  of   (IE-IPO)   for 

C  angles   of  incidence  THETAD  and  90  degrees,  respectively.   KZ  is  the 

C  array  of  match  points  used  in  obtaining  A  and  B.   EIKZ  is   an   array 

C  of   values   of  exp(iKZ)  which  is  used  to  increase  program  efficiency 

C  by  calculating  the  numbers  once  and   storing   them   for   later   use. 

C  Arrays   A,   B,   KZ,   and   EIKZ   are   all   of  length  NSIZE.   H  is  the 

C  subsection  half-width  that  was  used  for  (IE-IPO) .   HYORPS  (HYbrid  OR 

C  PulSe)  is  a  logical  variable  which  is  .TRUE,  when  the  A  and  B  arrays 

C  correspond  to  the  hybrid  expansion  for  (IE-IPO)  and   is   .FALSE,  for 

C  the   pulse-everywhere   expansion.    IHMPOA   is   the   output  array  of 

C  (IH-Ipo)   values   and   is   of   length   NPTS.    AIHMPO   calls   either 

C  IFGHP(pulse)    or    IFGHSH (hybrid) .     The    "exact"   value   of   the 

C  consistency  constant  is  used  for  convenience. 

C 

SUBROUTINE  AIHMPO(  NPTS,  YVALU,  A,  B,  KZ,  EIKZ,  NSIZE,  H,  THETAD, 
1  HYORPS,  IHMPOA  ) 

INTEGER  NPTS,  NSIZE 

C0MPLEX*16  DCMPLX,  A(NSIZE),  B(NSIZE),  EIKZ(NSIZE),  IHMPOA(NPTS) 
1,   HSUME,  HSUMS,  GSUME ,  GSUMS ,  ITIMES,  EIY 

REAL*8  H,  THETAD,  KZ(NSIZE),  YVALU(NPTS),  DSIN,  DCOS,DSQRT,  STA, 
1   CTA2,  PI/3.14159265358979323846D0/,  THETA,  SY,  CY ,  Y,  SRT2 

INTEGER  I 

LOGICAL  HYORPS 

SRT2  =  DSQRT(  2 . D0  ) 

THETA  =  (THETAD/180.D0) *PI 

STA  =  DSIN(  THETA  ) 

CTA2  =  DCOS(  THETA/2.D0  ) 

IF(  THETAD  .EQ.  180. D0  )  CTA2  =  0.D0 

DO  2  1=1,  NPTS 

Y  =  YVALU (I) 

SY  =  DSIN(Y) 

CY  =  DCOS(Y) 

EIY  =  DCMPLX (  CY,  SY  ) 

IF(  HYORPS  )  GO  TO  1 

CALL  IFGHP(Y,  A,  B,  KZ , EIKZ , NSIZE ,H ,  GSUME , GSUMS ,  HSUME, HSUMS) 

GO  TO  2 

1  CALL  IFGHSH(Y,A,B,KZ,  EIKZ,  NSIZE,  H,  GSUME,  GSUMS,  HSUME,  HSUMS) 

2  IHMPOA ( I) =EIY* ( SRT2*CTA2* ITIMES (HSUME) +STA*GSUME-2.D0) 

1  +   SY* (SRT2*CTA2*ITIMES (HSUMS) +STA*GSUMS) 

RETURN 
END 


233 


Computer  Program  for  H-pol ar ization  Half-Plane  Current.  Page  6 

C  Subroutine  IFGHSH  and   entry   subroutine   IFGHP   evaluate   four 

C  numerical   integrations   that  are  required  by  AIHMPO  to  evaluate  the 

C  current  (IH-Ipo)  from  the  current  (IE-IPO).    The   internal   logical 

C  variable  HORP  (Hybrid  OR  Pulse)  is  set  to  .TRUE,  if  IFGHSH  is  called 

C  and  to  .FALSE,  if  IFGHP  is  called.   Y  is   the   point   at   which   the 

C  current   (IH-Ipo)   is   to   be  evaluated.  h,    B,  KZ,  and  EIKZ  are  the 

C  same  as  described  in  the  write-up   for   AIHMPO   and   are   arrays   of 

C  length   NNSIZE.    H   is   the   subsection   half-width   for   (IE-IPO). 

C  Outputs  GSUME,  GSUMS,   HSUME ,   and   HSUMS   are   the   values   of   the 

C  numerical  integrations.   Prefixes  of  "G"  and  "H"  are  used  to  specify 

C  results  associated  with  the  A  and  B  vectors,  respectively.   Suffixes 

C  of   "E"   and   "S"   are   used   to  specify  that  the  results  need  to  be 

C  multiplied  by  exp(iY)  and  sin(Y),  respectively.    Either   IFGHSH   or 

C  IFGHP  is  used  by  AIHMPO. 

C 

SUBROUTINE  IFGHSH(  Y,  A,  B,  KZ,  EIKZ,  NNSIZE,  H,  GSUME,  GSUMS, 
1  HSUME,  HSUMS  ) 

INTEGER  NNSIZE 
C0MPLEX*16  A(NNSIZE),  B(NNSIZE),  EIKZ (NNSI ZE) , GSUME ,  GSUMS, 

1  HSUME,  HSUMS,  FRESNL,  DCMPLX,  TMP ,  ZRO/ ( 0 . D0 ,0 . D0 ) / ,  SAEKZ, 

2  SBEKZ,  FDIF 
REAL*8  Y,  YY,  H,  HH ,  KZ(NNSIZE),  TEMP(2),  SH ,  DSIN,  DCOS ,  DABS, 

1   SNKZ,  CSKZ,  SP,  SM,  ARG ,  PT ,  TWO/2. D0/ 
INTEGER  I,  J,  K,  NYSMl ,  NYS,  NYSPl ,  IDINT,  NSIZE 
LOGICAL  HORP 
EQUIVALENCE (  TMP,  TEMP) 
C 

C     Initialize  HORP(.TRUE.  for  hybrid,  .FALSE,  for  pulse). 

C 

HORP  =  .TRUE. 

GO  TO  1 

ENTRY  IFGHP (  Y,  A,  B,  KZ,  EIKZ,  NNSIZE,  H,  GSUME,  GSUMS,  HSUME, 
1  HSUMS  ) 

HORP  =  .FALSE. 
1  NSIZE  =  NNSIZE 

YY  =  DABS(Y) 

HH  =  H 

SH  =  DSIN(HH) 

C 

C     NYS  is  the  number  of  the  subsection  that  Y  is  in. 

C 

NYSMl  =  IDINT(  (YY/HH4-1.D0)/TWO  ) 
NYS  =  NYSMl  +  1 
NYSPl  =  NYSMl+2 
C 

C     See  if  Y  is  or  is  not  within  the  first  subsection  and  respond 

C         accordingly. 

C 


IF (HORP)  GO  TO  3 
IF(NYS.EQ.l)  GO  TO  2 
PT  =  DSIN(HH/TWO) 
PT  =  PT*PT 
GSUME  =  A(1)*PT 
HSUME  =  B(1)*SH/TW0 
GO  TO  5 
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2  PT  =  DSIN{YY/TWO) 
PT  =  PT*PT 
GSUME=A(1) *PT 
HSUME=B(1) *DSIN(YY)/TWO 
ARG=(HH-YY)/TWO 

SM  =  DSIN(ARG) 

ARC  =  (HH+YY)/TWO 

TMP  =  DCMPLX(  DCOS(ARG) ,  DSIN(ARG)   ) 

GSUMS  =  A(1)*SM*TMP 

HSUMS  =  B(1)*SM*TMP 

GO  TO  8 

3  IF(  NYS  .EQ.  1  )  GO  TO  4 
TMP  =  FRESNL(  HH  ) 
GSUME  =  A(1)*TEMP(2) 
HSUME  =  B(1)*TEMP(1) 

GO  TO  5 

4  TMP  =  FRESNL{YY) 
GSUME  =  A(1)*TEMP(2) 
HSUME  =  B(1)*TEMP(1) 
FDIF  =  FRESNL(HH) 
FDIF  =  FDIF  -  TMP 
GSUMS  =  A(l) *FDIF 
HSUMS  =  B(1)*FDIF 
GO  TO  8 

C 

C     Integrate  from  subsection  2  through  (NYS-l) . 

C 


IF(  NYSMl  .LT.  2  )  GO  TO 

SAEKZ  =  ZRO 

SBEKZ  =  ZRO 

DO  6  1=2,  NYSMl 

J  =  NYSMl-I+2 

TMP  =  EIKZ (J) 

SNKZ  =  TEMP (2) 

CSKZ  =  TEMP(l) 

SAEKZ  =  SAEKZ  + 

A(J) *SNKZ 

SBEKZ  =  SBEKZ  + 

B(J) *CSKZ 

GSUME  =  GSUME  + 

SH*SAEKZ 

HSUME  =  HSUME  + 

SH*SBEKZ 

c 

C     Treat  subsection  NYS. 
C  — 


ARG  =  (YY  +  KZ(NYS)  -  HH)/TWO 

SNKZ  =  DSIN(ARG) 

CSKZ  =  DCOS{  ARG  ) 

SM  =  DSIN(  (YY-KZ(NYS) +HH)/TWO) 

GSUME  =  GSUME  +  A (NYS) * ( SM*SNKZ) 

HSUME  =  HSUME  +  B (NYS) * ( SM*CSKZ ) 

ARG  =  (YY+KZ(NYS)+HH)/TWO 

TMP=  DCMPLX(  DCOS(ARG),  DSIN(ARG) 

SM  =  DSIN(  (KZ(NYS) +HH-YY)/TWO  ) 

GSUMS  =  A(NYS) *SM*TMP 

HSUMS  =  B(NYS) *SM*TMP 
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C 

C     Integrate  from  subsection  (NYS+1)  through  NSIZE. 

C 

8  IF(  NSIZE  .LT.  NYSPl  )  GO  TO  10 
SAEKZ  =  ZRO 

SBEKZ  =  ZRO 

DO  9  1=  NYSPl ,  NSIZE 

J=  NSIZE  -  I  +  NYSPl 

SAEKZ  =  SAEKZ  +  A(J)*EIKZ(J) 

9  SBEKZ    =    SBEKZ    +    B(J)*EIKZ{J) 
GSUMS    =    GSUMS    +    SH*SAEKZ 
HSUI^S    =    HSUMS    +    SH*SBEKZ 

10    TMP    =    HSUMS 

HSUMS  =  DCMPLX(  -TEMP(2),  TEMP(l)  ) 
C 

C     Multiply  all  sums  by  a  common  factor  of  -2. 

C 


c- 


HSUMS  =  -TWO*HSUMS 
GSUMS  =  -TWO*GSUMS 
HSUME  =  -TWO*HSUME 
GSUME  =  -TWO*GSUME 
RETURN 
END 


C         Function  ITIMES  takes  "i"  times   the   argument   S.    ITIMES   is 
C    called  by  AIHMPO,  IFGHSH,  and  IFGHP. 


COMPLEX  FUNCTION  ITIMES*16(S) 

C0MPLEX*16  S,  SS,  DCMPLX 

REAL*8  SS2(2) 

EQUIVALENCE (  SS ,  SS2  ) 

SS  =  S 

ITIMES  =  DCMPLX(  -SS2(2),  SS2{1) 

RETURN 

END 
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C  Subroutine  XIHMPO  calculates  the  current  (IH-Ipo)  at  the  NPTS 
C  points  stored  in  array  KZ  by  the  analytic  or  "exact"  formula.  The 
C  output  is  returned  in  array  IHMPOX.  KZ  and  IHMPOX  are  arrays  of 
C  length  NPTS.  THETAD  is  the  angle  of  incidence  in  degrees.  XIHMPO 
C  calls  FRESNL  and  is  called  by  MAIN. 
C 

SUBROUTINE  XIHMPO (  NPTS,  KZ,  THETAD,  IHMPOX) 

INTEGER  NPTS 

C0MPLEX*16  DCMPLX,  IHMPOX(NPTS) ,  FRESNL,  EIKZC 

REAL*8  KZ(NPTS),  Y,  THETAD,  THETA,  DCOS,  DSIN,  CTA,  CTA2SQ, 
1  PI,  PI04,  SQRTPI,  YC,  YCP4 

DATA  PI/3. 141 5926 53 589 793 23846D0/, 

1  SQRTPI/1.77  24  53  8  50  90  5  5160  27  30D0/, 

2  PIO4/0.78539816339744830952D0/ 
INTEGER  I 

THETA  =  (  THETAD/180.D0) *PI 
CTA  =  DCOS(  THETA) 
CTA2S0  =  DCOS(THETA/2.D0  ) 
IF(  THETAD  .EQ.  180. D0  )  CTA2SQ  =  0 . D0 
CTA2SQ  =  CTA2SQ*CTA2S0 
DO  1  1=1,  NPTS 
Y=  KZ  (I) 
YC  =  Y*CTA 
YCP4  =  YC  +  PI04 

EIKZC  =  DCMPLX(  DC0S(YCP4),  -DSIN(YCP4)   ) 
1  IHMPOX(I)  =  (4.D0/SQRTPI) * (EIKZC*FRESNL(2.D0*Y*CTA2SQ)  ) 
1  -2.D0*DCMPLX(DCOS(YC) ,-DSIN(YC)   ) 

RETURN 
END 
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C  Subroutine  PNTOUT  writes  results   in   disk   file   25   and   also 

C  prints   out   the   "exact"   and   the  approximate  real  part,  imaginary 

C  part,  magnitude  and  phase  of   (IH-Ipo).    THETAD   is   the   angle   of 

C  incidence   in   degrees.    Y,  IHMPOA,  and  IHMPOX  are  arrays  of  length 

C  NPTS.   IHMPOA  and  IHMPOX  have  been  filled  by  subprograms  AIHMPO   and 

C  XIHMPO,    respectively,   with   values   of   approximate   and   "exact" 

C  (IH-Ipo)  evaluated  at  the  points  contained  in  Y.   HYORPS   is   .TRUE. 

C  when   the   numbers   corresponding   to  the  hybrid  expansion  are  being 

C  passed. 

C 

SUBROUTINE  PNTOUT(  THETAD,  NPTS,  Y,  IHMPOA,  IHMPOX,  HYORPS  ) 

INTEGER  NPTS 

C0MPLEX*16  IHMPOA (NPTS) ,  IHMPOX (NPTS) ,  EXACT,  ANS 

REAL*8  SA(4) ,  SX(4),  ZM(3,  4),  Y(NPTS),  THETAD 

INTEGER  J,  K,  IC(4)/'  RE= ' ,  '  IM= ' ,  'MAG= ' ,  'AGL= '/ ,  I 

LOGICAL  HYORPS 

PRINT  1,  THETAD 

1  FORMAT ( '1 ' , 'THETAD=' ,F9.4//T5, 'KZ ' ,T19 , 'EXACT' ,T38, 'ANS' ,T56, 
1  'DIFF',  T76,  'exact',  T97,'ANS',  T114,  'DIFF'   ) 

C 

C     Write  results  on  disk. 

C 

WRITE (25)  THETAD,  IHMPOA 
IF(HYORPS)  write (25)  IHMPOX 
C 

C     Print  results. 

C 

DO  3  K=l,  NPTS 
EXACT  =  IHMPOX(K) 
ANS  =  IHMPOA (K) 
CALL  SEP(  EXACT,  SX  ) 
CALL  SEP(  ANS,  SA  ) 
DO  2  J=l,4 
ZM(1,J)  =  SX(J) 
ZM(2,J)  =  SA(J) 

2  ZM(3,J)  =  SX(J)  -  SA(J) 

3  PRINT  4,  Y(K) ,  (  IC(I),  ( ZM ( J , I) , J=l , 3) ,  1=1,4  ) 

4  FORMAT('  ',  T2,  0PF3 . 5 ,T10 , 2 ( A4 , '< ' ,1PD17 . 10 , '/ ' , D17 . 10 , '> ' ,D17 . 10 

1  ,  2X)/T10,A4, '<',D17.10, '/' ,D17.10, '>',D17.10,2X,A4, '<' ,0PF17.10, 

2  '/',  F17.10, '>',F17.10  ) 
RETURN 

END 
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